
leichter editieren mit 


EILEN -SCHIEBER 


SYNTHESIZER mit 


IFU'R- GEI\I AWpANf ER 
w»r klaren Ihre Fragen 


16 K mehr Speicher für 
Genie I und II - BANKSEl^fc 


DiSASSEMBLER 


und I f gibt alle Drucker- 
eichen aus - NEWPRINT 
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'' ^' er si °d s ' e a ^ so: D ' e neuen Spielehits für 
\ V- '•' Colour Genie. Auf Diskette oder Cassette. 

\ \ Ganz nach Wunsch! Alle Cassetten liefern wir 

•j-*. ' J in einer tollen Kunststoff-Buchhülle, alle Dis- 

\! _ ketten in einer eigenen, ansprechenden Tasche. 

• Alle Disketten und Cassetten werden vor dem Versand 

auf Fehlerfreiheit getestet. Das heißt. Sie bekommen bei uns nur 
ausgesuchte Spitzenqualität. Und das zu enorm günstigen Preisen. Übrigens liefern 
wir nach dem Motto: Heute bestellt, morgen verschickt! Wenn Sie also telefonisch be- 
stellen, und vor 12.00 Uhr bei uns anrufen, erfolgt der Versand noch am selben Tag. Bestel- 
lungen per Brief werden sowieso noch am selben Tag erledigt. Also bestellen Sie noch heute 1 1 1 


VORTEX 

Verteidigen Sie die Ringe des Saturn I An Ihnen liegt 
es, ob die Saturn-Monde von den Extra-Terrestrials 
versklavt werden, oder ob Sie frei bleiben! Also, 
setzen Sie sich in Ihren Kampf-Raumer und los geht's. 

Cassette DM 49,- - Disk DM 56,-- 

ASTRAY 

Fliegen Sie den schnellsten Kampf-Jäger der Welt 
über feindliches Gebiet 1 Aber hüten Sie sich vor den 
Boden-Luft-Raketen und den feindlichen Düsen- 
jägern. Wenn Sie es schaffen, die Höhlen zu durch- 
queren, sind Sie der Sieger I 

Cassette DM 59, — Disk DM 66,- 


PACBOY 

Steuern Sie den kleinen, gefrässigen PACBOY durch 
ein Labyrinth. Aber Vorsicht I Hüten Sie sich vor den 
Gespenstern! Es werden von Labyrinth zu Labyrinth 
mehr! Und wenn es sechs sind, kann das Labyrinth 
unsichtbar werden! Ein Riesenspaß! 

Cassette DM 49,- — Disk DM 56,-- 

COLDAT 

Das universelle Adreß-Verwaltungs-Programm für Ihr 
Colour Genie. Hiermit speichern Sie Adressen, finden 
Sie sehr schnell wieder, schreiben Aufkleber, und, 
und, und! Inklusive deutschem Handbuch I 
Nur auf Diskette DM 79,- 




Bestellen Sie noch heute bei : 

Ralf M. Hübben, 

Verlag für Computertechnik, 
Mühlbachstraße 2, 

5429 Marienfels/Ts. 

Wir liefern gegen Voreinsendung eines Verrech- 
nungsschecks, Porto und Verpackung frei, oder 
per Nachnahme plus 5,- DM Versandkosten 
Pauschale. 


BÜCHER 


Alle in deutscher Sprache! 


Programmieren in Maschinensp. mit Z80 


39,- DM 


Programmieren in Maschinensp. mit Z80, Teil II, 

speziell für GENIE und TRS 80* 29,80 DM 

Z80 Assembler Handbuch, mit allen Z80 

Befehlen. Sehr ausführlich! 29,80 DM 

Z80 Programming Reference Card, Englisch 5,- DM 

Programmieren mit TRS 80*, viele Tips, 

viele Beispiel-Programme 29,80 DM 

Anwender Programme für TRS 80* und 

Video Genie 29,80 DM 


NEU NEU NEU NEU NEU NEU 
FIG-FORTH 

Endlich gibt es auch diese fantas- 
tische Programmiersprache für Ihren 
TRS 80*, Modell 1. Was Sie benö- 
tigen ist mindestens 32 K RAM und 
Diskettenlaufwerk. Was Sie bekommen 
ist FIG-FORTH auf Diskette, deut- 
sches Handbuch und ein Editor/ 
Assembler! Nur DM 199,- auf Disk. 

•TRS 80 Ist olngtr. Warenzeichen der 
Tandy Corp. 


WIR SUCHEN COLOUR GENIE 
HARD- UND SOFTWARE! 

Haben Sie ein gutes Programm für das Colour Genie? Egal ob Basic, 
Maschinensprache oder compiliert! Wenden Sie sich an uns! Wir 
bieten Ihnen für ein gutes Programm ein gutes Honorar! Oder ken- 
nen Sie vielleicht einen Grund, warum Sie sich nicht mit Ihrem 
Hobby ein paar Mark nebenher verdienen sollen? 

Selbstverständlich sind wir auch daran interessiert, gute Hardware 
für das Colour Genie mit Copyrights zu kaufen I 
Schreiben Sie uns oder rufen Sie an: Telefon 06772-7828. 



GENIE 11 3 



UNNUMMER Hier klären wir alle Fragen, die so 

Eine sehr interessante Möglichkeit Ihre beim Einstieg in die Computerei auf- 

Basic Programme zu schützen, bietet ihnen treten können. Wenn Sie auch noch Fragen 

dieser Artikel Seite 5 haben, müssen Sie sich das ansehen I 

Seite 29 

HÜLLEN DRUCKER 

Mit diesem Programm drucken Sie für Ihre BANKSELECT 

Musik- oder Programm-Cassetten Labels, Wußten Sie schon, daß bei älteren Genie 

die sich sehen lassen können Seite 1 0 I und II Modellen 16K Speicher brach 

liegen? Wie man diese zum Leben erweckt, 

PROGRAMMIERER WETTBEWERB zeigt Ihnen unsere Selbstbau-Anleitung 

Sie können glatte 200,- DM gewinnen, bei ab Seite 30 

unserem großen Programmierer Wettbewerb 

für alle Genie I und II Besitzer. Da müssen GENIE DATA TEXTSTAR 

Sie auf jeden Fall mitmachen ! Ein neues lauffähiges Textverarbeitungs- 

Näheres auf Seite 13 Programm bieten wir Ihnen hier! 

Seite 32 


ASSEMBLER KURS, TEIL III 

Weiter geht es für alle „Maschinen-Lehrlinge" DISASSEMBLER 

in unserem Kurs über Programmierung in Wer schon immer mal in fremde Maschinen-' 

Maschinensprache Seite 15 Programme rein sehen wollte, ist mit 

diesem Programm gut beraten ! 

ZEILEN SCHIEBER Seite 35 


Haben Sie sich schon geärgert, daß man 
beim Colour Genie jede Zeile, die wo 
anders hin soll, neu tippen muß? 

Dann hilft Ihnen dieses Maschinenprogramm! 

Seite 19 

Für jeden, der etwas sucht, oder verkaufen will, 
die Kleinanzeigen auf Seite 20 

SYNTHESIZER 

Wir machen Musik ! Und zwar geben wir 
Ihnen das benötigte Programm, und zeigen, 
wie man eine Orgeltastatur an das Colour 
Genie anschließt. Seite 21 

EINKAUFSFÜHRER 

Unsere neue Rubrik. Hier finden Sie die 
guten Fachgeschäfte. Schauen Sie einmal rein I 

Seite 28 


MONDLANDUNG 

Waren Sie schon einmal auf dem Mond? 

Nein? Dann tippen Sie ganz schnell 

dieses Programm ab, und versuchen Sie 

zu landen I Seite 41 

FUNKTIONSDISKUSSION 

Hier ist etwas für alle Mathematiker! 

Ein Funktionsdiskussion Programm, das 

Ihnen die Funktion plottet, und diese 

auch ausdrucken kann ! Seite 47 

NEWPRINT 

Für alle Genie I und II Besitzer, die 
sich schon geärgert haben, daß man nicht 
alle Druckcodes ausgeben kann. Dieses 
Programm schafft Abhilfe ! Seite 50 

DATA IT! 


FÜR DEN ANFÄNGER Mit Hilfe dieses Programms wandeln 

Die neue Serie in der GENIE DATA. Sie beliebige Maschinenprogramme um 

in ein Basic-Programm mit Data-Zeilen. 

Seite 51 
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LESERBRIEFE 



LESER- 

BRIEFE 


In einer Fachzeitung las ich vor einiger 
Zeit, daß es für das Colour Genie ein In- 
terface zum Anschluß an einen Fernschrei- 
ber der Marke Siemens T1000 geben soll, 
kann die entsprechende Passage jedoch 
nicht mehr finden. 

Nun meine Frage: Gibt es wirklich diese 
Anschlußmöglichkeit, und wo kann man sie 
erwerben (zu welchem Preis)? 

Jörg Jacobsen 
Hartwig-Hesse-Straße 39 
2000 Hamburg 19 

WER HILFT? 


Seit Januar 1984 abonniere ich nun die 
Zeitschrift GENIE DATA und finde es gut, 
daß ab Heft Nr. 2/84 Teile der Erstaus- 
gabe beiliegen werden. Ich hätte aber 
gerne noch die anderen Ausgaben, die 1983 
erschienen sind. Wieviele sind es, und 
wie kann ich sie Nachbestellen? 

Verfügen Sie auch über eine Colour Genie 
Software-Liste? 


Dirk Besemer 


Lassen Sie mich zuerst einmal sagen, daß 
ich die GENIE DATA sehr interessant und 
überaus wichtig für Computer-Laien, wie 
ich einer bin finde. Dazu gehört, daß ich 
Ihnen bei ‘der weiteren Gestaltung und 
Erhaltung der Zeitschrift viel Erfolg und 
gute Resonanz wünsche. 

Nun zur GENIE DATA 2/83. Ich bin daran 
interessiert, auch diese Ausgabe und 
eventuell noch weitere zu erhalten. 

Kristian Steffen 

Von den zurückliegenden Ausgaben der GENIE 
DATA sind nur noch die Nummern 3+5/1983 
erhältlich. Unser komplettes Software-Angebot 
finden Sie in diesem Heft. GENIE DATA 


Zu dem von Ihnen (übrigens aus meiner. 
Sicht zurecht) verurteilten Programmaus- 
tausch von gewerblicher Software möchte 
ich wie folgt Stellung nehmen. 

Ich habe den Club im November 1983 von 
Herrn Klaus Schmidt übernommen, da er 
selbst keine Zeit mehr hatte, um die Lei- 
tung durchzuführen. Zu dieser Zeit be- 
stand die Möglichkeit, über den Club 
Software unter den Mitgliedern zu tau- 
schen. Da mir diese Art der Betätigung 
auf Grund immer häufiger auftretender ge- 
werblicher Software zu illegal erschien, 
habe, ich in einem zurückliegenden Info 
die Mitglieder um passende Lösungsvor- 
schläge zum Thema Softwaretausch gebeten 
und dabei auch auf die Probleme mit käuf- 
licher Software hingewiesen. Der einzige 
Vorschlag kam von K. Schmidt, wie im 
letzten Info abgedruckt. 

Ich möchte nochmals betonen, daß im Namen 
des Clubs keine Programme, gleichgültig 
ob privat oder gewerblich, getauscht wer- 
den. Die Veröffentlichung von Software- 
listen der Mitglieder wird ab sofort ein- 
gestellt. 

Genie TRS 80 User Club Bremerhaven 

Peter Spieß 
Trugenhofenersträße 27 
8859 Rennertshofen 1 


Das dieser Club den Programmtausch einstellt, 
finden wir sehr nachahmenswert! 

Wenn Sie, als Leser, Mitglied in einem User-Club 
werden wollen, können wir Ihnen zum Beispiel 
den oben genannten sehr empfehlen ! 

Wenden Sie sich dann bitte an die oben abge- 
druckte Adresse. GENIE DATA 
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Automatische Cassettenrecordersteuerung 

mit Einbauanleitung 


DM 24,80 


oder 16K-Erweiterung mit Recorder- 
steuerung auf einer Platine mit Einbauanleitung DM 119,80 

Datenrecorder-Probleme ? 

Muß nicht sein ! 

Mit unserer Zusatzplatine werden die Daten digitalisiert. 

| • | r / ~ - In jedem normalen Recorder einzuschleifen I - 

I Mit Einbauplan Modul DM 98,- 


Fürdie "Alten" 

Leveimeter Nachrüstsatz kompl. mit Einbau- 
anleitung DM 19,80 

Commodore VC 20 + VC 64 
Cassetteninterface Vers. 1 mit Schaltern mit Bedienungs- 
anleitung (wird nur auf den Port gesteckt). 

Für alle handelsüblichen Recorder DM 29,80 

dito Vers. 2 

mit automatischer Motorsteuerung für den Recorder. 

Mit Bedienungsanleitung DM 36,80 

Light Pen für C 64 in Vorbereitung ... 
NDR-Computer-Bausätze bei uns! 






: 

3 

:• 


\ 


UNNUMMER 


i!*ii ‘ ^>‘*r^*~**. ‘ 

^ Jörg Tegeder 


Dieser Artikel ist für jeden 
der schon mal vor dem Problem 
gestanden hat, wie er seine Pro- 
gramme vor unerwünschten Ver- 
änderungen durch Fremde schützt, 
geschrieben. Auch ich stand vor 
diesem Problem und kam zu 
dieser Lösung, die zwar die 
Möglichkeit der Programmverän- 
derung nicht völlig unterbindet, 
aber doch sehr erschwert. 

Was ist UNNUMMERN? 
Jeder wird wohl schon etwas von 
Renumbern gehört haben, wobei 
die Zeilennummern eines Pro- 
gramms unter Berücksichtigung 
eventueller GOTO's und GOS- 
BU's in einer bestimmten 
Schrittweite RENNUMMERT 
wird. 


UNNUMMERN ist das Gegen- 
teil davon; es werden nämlich 
alle Zeilennummern gleich Null 
gesetzt, sofern diese nicht von 
GO's (GOTO oder GOSUB) be- 
troffen sind. Man muß deshalb 
auf GO's Rücksicht nehmen, weil 
die nach einem GOTO oder 
GOSUB stehende Sprungadresse 
im ASCII (American Standard 
Code for Information Interchan- 
ge) abgelegt ist und erst zur Zeit 
der Programmausführung in eine 
absolute Adresse umgerechnet 
wird; setzte man die Nummer 
der entsprechenden Zeile auf 
Null, träte ein UL (Undefined 
Line) ERROR auf. 

Vorgehensweise 

Zunächst wird das Programm mit 


Hilfe eines Assemblers eingetippt, 
assembliert und auf Kassette ge- 
speichert. Sodann geht man ins 
Basic zurück und lädt UNNUM- 
MER mit Hilfe des SYSTEM-Kom- 
mandos. 

UNNUMMER startet automa- 
tisch und schiebt den Basic-An- 
fang in höhere Speicherbereiche, 
so daß es selbst vor dem Anfang 
von Basic liegt und dort akti- 
viert werden kann. Nachdem der 
Rücksprung zum Basic erfolgt ist, 
kann man ein Basic-Programm 
laden oder eintippen. Wenn ein 
Basic-Programm im Speicher ist 
und man PRINT USR 0 ein- 
gibt, dauert es je nach Länge 
des Programms kürzere oder län- 
gere Zeit, bis der Computer 



SOFTWARE 



sich wiedermeldet. Wenn er sich 
wiedermeldet, ist Ihr Programm 
ungenummert. Sie können es nun 
auf Kassette retten oder laufen 
lassen, aber nur noch schwer 
verändern. 

Viel Spaß beim Schützen Ihrer 
Programme! 




OOIOO 

-************************************************** 

****** 







00200 

;** 


UNNUMMER 

** 





* Ar 

00300 

;** 

von 

Joerg Tegeder 

* » 

00400 

;** 


Keplerstrasse 5 

** 







00500 

;** 


D5206 Neunkirchen 

** 







00600 

;** 


Tel.: 02247/ 4147 

** 







00700 

;****«********************************************* 

****** 





41E2 


00800 


ORG 

41E2H ; Autostart: 

41E2 

C3E942 

00900 


JP 

START ss.o. 

42E9 


Ol 000 


□RG 

42E9H 

42E9 

3EC9 

Ol lOO 

START 

LD 

A,OC9H ; Autostart zuruecksetzen. 

42EB 

32E241 

01200 


LD 

( 41E2H) , A ;s.o. 

42EE 

21 2844 

01300 


LD 

HL, ENDE ; Stackebenen reservieren. 

42F 1 

22A440 

01400 


LD 

( 40A4H) , HL ; abspeichern. 

42F4 

CD4A1B 

01500 


CALL 

1B4AH ;in NEW springen. 

42F7 

210043 

01600 


LD 

HL, BEGINN ;USR- Adresse setze 

n ■ 

42FA 

22BE40 

01700 


LD 

(408EH) ,HL ; s. o. 

42FD 

C31B1A 

01800 


JP 

1A18H jRuecksprung in BASlCschlei 

T fc? * 

4300 

ED730644 

01900 

BEGINN 

LD 

(STACK), SP ; Stackpointer siche 

rn. 






4304 

312644 

02000 


LD 

SP,ENDE-2 ;Und initialisieren 

4307 

CD3343 

02100 


CALL 

FINDEN ;von GO... angesprungene Ze 

i len 








02200 



; markieren. 

430A 

DD2AA440 

02300 


LD 

IX, (40A4H) ; BASICtextanf ang. 

430E 

DDE5 

02400 


PUSH 

IX 

4310 

DDE1 

02500 

LOOPO 

POP 

IX ; Pointer auf Text nach IX. 

4312 

DD6EOO 

02600 


LD 

L, (IX+O) ; Zei lenpointer nach 

HL. 






4315 

DD6601 

02700 


LD 

H, (IX+1) ;s.o. 

4318 

7C 

02800 


LD 

A,H ; =0 7 

4319 

B5 

02900 


OR 

L ; s. □. 

431 A 

2005 

03000 


JR 

NZ, COLPO ;nein, weitermachen 

• 

431C 

ED7B0644 

03100 


LD 

SP, (STACK) ; sonst Stackpointer 

Z Ul”" 
4320 

C9 

03200 


RET 

;rueck und fertig. 

4321 

E5 

03300 

COLPO 

PUSH 

HL ; sonst retten. 

4322 

2B 

03400 


DEC 

HL ; zeigt auf letztes Byte der 


Zei le 
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EENill 7 


4323 

7E 

03500 

LD 

A, (HL) 

; prue-f en : =0 ? 

4324 

3600 

03600 

LD 

(HL) , 0 

jgleich Null setzen. 

4326 

B7 

03700 

OR 

A 

;= 0 7 

4327 
1 e. 
4329 

20E7 

03800 

JR 

NZ,LOOPO ;nein, naechste Zei 

DD360200 

03900 

LD 

(IX+2) ,C 

i ; sonst ZNR = 0 ! 

432D 

DD360300 

04000 

LD 

( I X+3) , C 

i ; s. o. 

4331 

1BDD 

04100 

JR 

LOOPO 

;und naechste ZNR. 

4333 

DDE5 

04200 FINDEN 

PUSH 

IX 

; Pointer retten. 

4335 

DD2AA440 

04300 

LD 

IX, (40A4H) ; auf erste Zeile ze 

i gen. 
4339 

DDE5 

04400 

PUSH 

IX 


433B 

DDE1 

04500 LOOF'l 

POP 

IX 

;Pointer nach IX. 

433D 

te 

4340 

DD6EOO 

04600 

LD 

L, (IX+O) 

; Pointer auf naechs 

DD6601 

04700 

LD 

H, (IX+1) 

; Zeile nach HL. 

4343 

7C 

04800 

LD 

A , H 

o 

li 

4344 

B5 

04900 

nn 

ur\ 

1 

l_ 

i lj« 

4345 

2003 

05000 

JR 

NZ , C0LP1 

;nein, weiter. 

4347 

DDE1 

05100 

POP 

IX 

; IX zurueck. 

4349 

C9 

05200 

RET 

;Und fertig. 

434A 

E5 

05300 C0LP1 

PUSH 

HL 

; sonst retten. 

434B 

0604 

05400 

LD 

B,4 

; IX um 4 erhoehen. 

434D 

DD 23 

05500 L00P2 

INC 

IX 

; s. o. 

434F 

10FC 

05600 

DJNZ 

LOOP2 


4351 

DD7E00 

05700 L00P3 

LD 

A, (IX+O) 

; A=Zei chen. 

4354 

B7 

05800 

OR 

A 

;=0 ? 

4355 

2BE4 

05900 

JR 

Z, L00P1 

; ja, naechste Zeile. 

4357 

FEFF 

06000 

CP 

OFFH 

; =FF (schon veraendert) 7 

4359 

2BE0 

06100 

JR 

Z , LOOPl 

; ja, naechste Zeile 

435B 

FE 93 

06200 

CP 

93H 

; REM 7 

435D 

2BDC 

06300 

JR 

Z, LOOPl 

; ja, naechste Zeile. 

435F 

FE22 

06400 

CP 

? II 1 

; " ? 

4361 

201 A 

06500 

JR 

NZ, CONTI 

;nein, weiter. 

4363 

DD23 

06600 L00P4 

INC 

IX 

; sonst suchen bis Ende der 

Zei 1 e 

4365 DD7E00 

06700 

06800 

LD 

A, (IX+O) 

;oder zweiter " gefunden. 
; Zeichen in A. 

436B 

FE22 

06900 

CP 

? II 7 

; - ? 

436A 

2B1 1 

07000 

JR 

Z, CONTI 

; ja, weiter. 

436C 

B7 

07100 

OR 

A 

;= 0 7 

436D 

2BCC 

07200 

JR 

Z, LOOPl 

; ja, naechste Zeile. 

436F 

Dl 

07300 

POP 

DE 

;Ende der Zeile 7 

4370 

D5 

07400 

PUSH 

DE 

; s. o. 

4371 

E5 

07500 

PUSH 

HL 

; HL sichern. 

4372 

AF 

07600 

XOR 

A 

; Carry CI ear. 

4373 

ED 52 

07700 

SBC 

HL, DE 

;pruefen ob Ende der Zeile. 

4375 

2B 

07800 

DEC 

HL 

jwenn jetzt = 0, Ende der Z 

eile. 

4376 

7C 

07900 

LD 

A,H 

;pruefen ob 0. 

4377 

B5 

08000 

OR 

L 

; s. o. 

437B 

El 

OB 100 

POP 

HL 

; HL zurueck. 

4379 

2BC0 

08200 

JR 

Z , L0DP1 

;ja, naechste Zeile. 

437B 

1BE6 

0B30Q 

JR 

L00P4 

437D 

DDE5 

08400 CONTI 

PUSH 

IX 

; IX retten. 

437F 

FEBD 

08500 

CP 

8DH 

; GOTO 7 

43B1 

CC9943 

08600 

CALL 

Z, TRIFFT 

;Zeile(n) markieren 

43B4 

FE91 

08700 

CP 

91H 

; GOSUB 7 

4386 

CC9943 

08800 

CALL 

Z, TRIFFT 

;s.o. 
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4389 

FE95 

08900 

CP 

95H 

;ELSE <G0. . . weggelassen) ? 

438B 

CC9943 

09000 

CALL 

Z, TRIFFT ;probieren. 

438E 

FECA 

09100 

CP 

OCAH 

; THEN (s. ELSE) ? 

4390 

CC9943 

09200 

CALL 

Z, TRIFFT ;probieren. 

4393 

DDE1 

09300 

POP 

IX 

; wieder da. 

4395 

DD 23 

09400 

INC 

IX 

; naechstes Zeichen untersuc 

hen. 

4397 

18B8 

09500 

JR 

LD0P3 


4399 

210000 

09600 TRIFFT 

LD 

HL, 0 

; Zahl soll in HL geschriebe 

n wer — 





439C 

1 10000 

09700 

LD 

DE, 0 

;den. Zwischenspeicher fuer 

Zahl. 





439F 

CDEC43 

09800 L00P5 

CALL 

ZIFSUC 

; Ziffer suchen. 

43A2 

300D 

09900 

JR 

NC, C0NT2 ; wenn Ende der Zahl 



10000 



; abbrechen. 

43A4 

62 

10100 

LD 

H, D 

; Zahl nach HL. 

43A5 

6B 

10200 

LD 

L, E 

; s. d. 

43A6 

29 

10300 

ADD 

HL, HL 

;mit 10 mul ti lpizi eren. 

43A7 

29 

10400 

ADD 

HL, HL 

;bis jetzt mal 4. 

43AB 

19 

10500 

ADD 

HL, DE 

; mal 5. 

43A9 

29 

10600 

ADD 

HL. HL 

; mal 10. 

43AA 

5F 

10700 

LD 

E,A 

;plu5 Ziffer. 

43AB 

1600 

10800 

LD 

D, 0 

; s. o. 

43AD 

19 

10900 

ADD 

HL, DE 

; s. o. 

43AE 

EB 

11000 

EX 

DE, HL 

jin DE speichern. 

43AF 

18EE 

11100 

JR 

L00P5 

; naechste Ziffer 

43B1 

EB 

11200 C0NT2 

EX 

DE. HL 

, ZNR in HL. 

43B2 

CDCA43 

11300 

CALL 

MARK 

Zeile wird markiert. 

43B5 

DD2B 

11400 

DEC 

IX 

;zuruecksetzen ! 

43B7 

hen. 

DD23 

11500 L80P6 

INC 

IX 

; naechstes Zeichen untersuc 

43B9 

DD7E00 

11600 

LD 

A, CIX+O) 

;pruefen ob ON ... 

GOTO/ 







11700 



; -SUB. 

43BC 

B7 

11800 

GR 

A 

; Zeilenende ? 

43BD 

C8 

11900 

RET 

Z 

;ja, zurueck. 

43BE 
) ? 
43C0 

FE FF 

12000 

CP 

OFFH 

; Zeilenende (schon markiert 

C8 

12100 

RET 

Z 

; ja, fertig. 

43C1 

FE20 

12200 

CP 

20H 

; Leerzeichen ? 

43C3 

28F2 

12300 

JR 

Z , LÜ0P6 

; ja, naechstes Zeichen. 

43C5 

FE2C 

12400 

CP 

2CH 

; Komma ? 

43C7 

28D0 

12500 

JR 

Z, TRIFFT 

; Ja, Zahl untersuch 

en. 

43C9 

D9 

12600 

RET 



43CA 

V 

ED5BA440 

12700 MARK 

LD 

DE, (40A4H) ; BASI Canf ang nach I 

A • 

43CE 

D5 

12800 LD0P7 

PUSH 

DE 

; Adresse van naechster Zeil 

e nach 





43CF 

FDE1 

12900 

POP 

IY 

; iv. 

43D1 

FD5E00 

13000 

LD 

E, (IY+O) 

; letzte Zei le 7 

43D4 

FD5601 

13100 

LD 

D, (IY+1 ) 

;s.o. 

43D7 

7A 

13200 

LD 

A , D 

; oder : DE = 0 ? 

43D8 

B3 

13300 

OR 

E 

; s. o. 

43D9 

C8 

13400 

RET 

Z 

;ja, fertig. 

43DA 

D5 

13500 

PUSH 

DE 

;DE retten. 

43DB 

FD5E02 

13600 

LD 

E, < I Y+2) 

;aktuelle Zeilennum 

m er 






43DE 

FD5603 

13700 

LD 

D, ( IY+3) 

;nach DE. 
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43E 1 

E5 

1 3800 

PUSH 

HL 

: angesprungene ZNR (Zeilenn 

ummer ) 







1 3900 



; retten. 

43E2 

AF 

1 4000 

XQR 

A 

; Carry Frei machen. 

43E3 

ED52 

1 4 1 00 

SBC 

HL, DE 

; subtrahi eren . 

43E5 

El 

1 4200 

POP 

HL 

; ZNR zurueck. 

4 3E6 

Dl 

1 4300 

pap 

DE 

3 DE zurueck. 

4 3E7 

D8 

14400 

RET 

C 

;groessere ZNR: Fertig. 

43EB 

2817 

14500 

JR 

Z , SETZ 

; selbe Zeile, markieren ! 

4 3EA 

1 SE2 

1 4600 

JR 

L00P7 

; sonst naechste ZNR untersu 

chen. 






43EC 

DD23 

14700 ZIFSUC 

INC 

IX 

;nach naechster ZiFFer such 

en. 






43EE 

DD7E00 

14800 

LD 

A, (IX+O) 

; ASC- Wert von Zeic 

her. 






43F 1 

B7 

14-300 

□ R 

A 

;gleich Null ? 

43F2 

ca 

15000 

RET 

7 

; ja, zurueck. 

43F3 

FEFF 

15100 

CP 

OFFH 

; =FF (schon veraendert) 7 

43F5 

C8 

15200 

RET 

Z 

; ja. 

43F6 

FE 20 

15300 

CP 

20H 

;prueFen ob Space. 

43F8 

28F2 

15400 

JR 

Z, ZIFSUC 

3 ja, naechstes Zeic 

hen . 






43FA 

D630 

1 5500 

SUB 

3 OH 

; Z i F F er ? 

43FC 

3F 

15600 

CCF 

; Carry invertieren. 

43FD 

DO 

1 5700 

RET 

NC 

;nein, zurueck. 

43FE 

FEOA 

15800 

CP 

10 

jprue-fen ob >9. 

4400 
/ — > — 

C9 

15900 

RET 


; Zurueck mit entsprechend g 

tr 


16000 



; setz Fern Carry. 

4401 

1B 

16100 SETZ 

DEC 

DE 

; DE zeigt auF Ende der jetz 

i gen 








16200 



; Zeile, wo nor mal erwei se ei 

n 


1 6300 



;Mullbyte steht. 

4402 

3EFF 

16400 

LD 

A.OFFH 

; Dieses wird nunm durch 

4404 

12 

1 6500 

LD 

(DE) , A 

; FFH ersetzt. 

4405 

C9 

16600 

RET 

; das war 

■’s. 

4406 


16700 STACK 

DEFS 

2 OH 

;Platz Fuer Staci , 

4426 

00 

1 6800 

NOR 



4427 

00 

1 6900 

NOP 



4 429 

00 

17000 ENDE 

NOP 



0000 


17100 

END 



00000 TOTAL 

ERRDRS 





nehmen Sie teil 
am grossen GENIE DATA- 

Programmier Wettbewerb ! 
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io GENIEII1 


Dieses Programm wurde speziell 
für die Seikosha Drucker GP 80/ 
100 geschrieben und druckt Hül- 
len für Musik- (Programm) Cas- 
setten. Es wird hierzu über die 
Grafikroutinen eine eigene Propor- 
tionalschrift erzeugt. Dieser Pro- 
grammteil ist universell anwend- 
bar, Text in Variable AS schrei- 
ben, dann GOSUB 8500, 


SO ' 

11. ' KUSSE 7 TENBESCHRIF TU N&S PROGRAMM VERSION 2.0 

.22 ' .22/.29S2 VON MOLT ER CHRIST SOLDBUCH 

23 ■' »‘tf##***#*####*#**#***#*#-**##*#****#*#-* 

.2 9 CLS 

20 PRINT s PRINT" KASSE 7 T ENSES CH RTF TUNGSPRO GRAMM 2.0" 

30 PRINT : PRINT 
35 CLEAR2000 
20 7J.IN UP<20> 

2.00 RR7.NT" RAUSCHUN TERDRUECKUNG 2-dQLBV B 2 -DOLBY C C -KE INE " 
102 XP-INKE VF t IPX**»" TUEN. 202 

220 LINE INPUT "LIEBERSCHRIFT SEITE 0 "-Ai !<Ö) 

230 F ORF- .2 TOS ■ PRINT X - : L I NEIN RU TOT ( >\ > : NE>\ 7 
140 L I NE I NPUT" UESERSCHR IF T SEITE B ":AP<10) 

15 0 FORX---1 ITOlSt PRINTE- 20; z LI NE INPUT AP < X ) zNEXT 
260 LINE INPUT" DECKEL ZEILE 2 " -DO* 

270 LINE IN PUT "II EC K E L ZEILE 2 "-.DIP 

275 LINE INPUT" NONE ":NP 

ISO LP RIN TC HR P (' S ) : CHP.P< 2 55) - CHRPC 28 ) ; CHRP <2 55) ; CHRP < 2.2 9 ) r 
1 90 L PRIN TCHRP < 28 > : CHRP < 30 > , CHRP <229 > : CHRP < 255 > 

200 1-V AL <XP)z LPRINTCHRP <255) : CHRP < 28 > - CHRP < 2 5 > ; CHRP ( 1 28 >; HF 1= IT 
HENAP -"DOLBY B" : GOSUB 8 5 O O E L S EIF I-2TH £ N AP- "BOL B V C" : GOSUB850O 

21.0 AP-" A ) " +S TRINGP ( ( 60- LEN < AP < O) ) ) / 2 . " ")+AP<Q)+" 

215 LP RI NT CHRP ( 8 >■■ L PR I NT CHRP ( 2 5 5 > - 

220 GOSUB 8500 

23 0 LPRJNTCHRU 8) ’.LPRIN TCHRP (255): CHRP ( 28 ) ; CHRP < 2 5 5 ) ■ CHRP/ 1 32 > ; 
240 LP RIN TCHRP <2.8 ) ; CHRP (' SO > ; CHRP < 132 > • CHRP ( 255> ; 

250 FORX-2 TOS 

260 L PRIN TCHRP < 8 ) '■ L PR INT CHRP ( 255) ; CHRP <28 ) ; CHRP < 25) ; CHR P < 1 28 ) ; 

270 AP- AP < X > i 60SUB8 500 

280 NEXT ■ ' 

290 LPR 1 NTCHRP ( 8 ) z L PRINT CH RP <255) ; 

300 OP-" B)"+STRINGP < (60-LENCAP <10> >>/2." " )+AF<lQ)t" " 

310 LPR INT CHRP (8) z G0SUB8 500 

320 LPR IN TCHRP < 8 )z LP/UN TCHRP <255) : CHR P < 28 ) - CHRP < 255) CHRP < 1.32): 
330 L PR 1 NTCHRP <28> ; CHRP <30> ■ CHRP < 1 32 > : CHRP < 255 > ; 

340 FORX-2 1. TO 18 

350 LPR 1 NTCHRP < 8 ) z LPR INT CHRP <255) ; CHRP < 28 ) : CHRP < 25) : CHRP <2 28 ) - 
360 AP-AP(X > 

370 G0SUB8 500 
380 NEXT 

400 LPRINTCHRP <8)ZLPRIN TCHRP < 255) :CHRP< 28) :CHRP< 255) : CHRP < 130) : CH 
RP <28 > : CHRP (30) - CHRP <130 ) ■ CHRP <255) 

510 LPRI NTCHRP < 15) : " " : DOP z LPR1NT" " : D1P 

520 L PRI N TCHR P < 8 ) ; CHR P <255 ) : CHRP < 28 > : CHRP < 2 55 ) : CHR P < 136): CHR P < 28 > 
;C.HRP <30) : CHRP < 1 36 ) ; CHRP < 2 55 ) 

530 LPRINTCHRP < 15) ; " BES IT ZER z" - NP 
540 LPRINTCHRP < 1 5) 


Walter Christ 


Hüllen 




Drucker 
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5 50 L PR 1 N TCHR * ( 8 ) ; CHR* (255 ) : CHP, * ( 28 ) ; CUR * ( 2 5 5 ) ; CHR*(1 92 ) - CHR * ( 28 ) 
: CHR* (SO) ; CHR* ( 192 > ; CHR* (235) 

560 PRINT" ENDE" 

565 Nt- IN KE 7 * 

570 PR INJ " HOC HE 1 NM PL - 1 DRUECf'EN" 

580 N*~I NKE V* : TH EN 580 

5 9 0 1F Hi»" 1 "THE N 1 8 0 
900 END 

8500 * #■**■*#***■»**#■»***&*#**#■»**#■**###*#■**■##*#*## 

8510 ' UMMRNDL IJNG IN PROPORTIONAL SCHRIE 7 

851 1 ' x*#*#-»#-**-*****#*###-##-##*-*###-»*-»#*#-»*##-*-*-*# 

8520 8*~ {-)*■/-" " ,h 

$ 580 f OR T~l T OL E N ( 8* ) 

8540 >\ *-N.rD* ( R* . T , 1 ): 0OSUBS92O 
8545 L PR 7. N TCHR * ( 8 > ; CHR * < 1 2 8 ) ; 

8550 NE/, T T 

8920 1 pftSC (X * > <76 THE NC0SUB9000 ~ RE TURN 
8 980 IE RS C ( X * > 575RNDRSC ( X* > < 117 T HENG0SUD901 0 ■■ RE TURN 
8940 &8SUB9020: RE TURN 


9000 8NfiSC(X* )-31 60 SU B 9 500 . 951 0 . 9520, 9530, 9540,9550 . 9560,9570, 958 
0, 9590, 9595, 9598 , 9600, 9610 . 9620 . 9630 . 96-40, 9650, 9660, 9670 . 9680. 969 
0 , 9700, 9710 , 9720 , 9730 , 9740, 9750 , 9500 , 97 55 , 9500 » 9760 .. 9765, 9770 . 977 
5 . 9780 . 9785 . 9790 . 9795 . 9800 . 9805 . 9810 , 981 5 . 9820 
9005 RETURN 

90 1 0 8NRSC < X*)- 7 SGOSUB 982 5 , 98 30 , 983 5 , 98 40 , 98 4 5 , 98 50 , 9860 , 986 5 , 987 
0 , 9875 , 9880 . 9885 . 9890 , 9895 , 9900 . 9500 . 9500 , 9500 . 9500 . 9905. 9500 , 100 
1.0, 10020, 10030, 10040, 10050 , 1.0060, 10070,10080 , 10090, 10100, 10110,10 
120,10130, 10135, 10140, 10150, 10160, 10170, 10180, 10190 
901.5 RETURN 

8H8SC(X*)~116&0SUB 10200, 1.021.0 , 10220 , 10230,10240,10250 
RETURN 

' Druckers asg abe Pro. parti ort&I schri f t 

LPR IN TCHR * < 128 > - CHR* (128) ; CHR * <128 ) ; (RE HIRN 
LPRINT CHR* (222) •* RE TURN 

L PR INT CHR* < 134 ) ■ CHR * < 128/ ; CHR* (134) : s RE TURN 
LPRINT CHR* ( 1.64 ) - CHR* (254) »CHR* (254 ); CHR* (1.64 >,;.:RE TURN 
L PR IN Y CHR * ( 168 > ; CHR*( 172), CHR* ( 2:54) : CHR* C 182) ; CHR* ( 148); : RE 


9020 

9025 

9489 

9490 

9491 
9500 
9510 
9520 
9530 
9540 
TURN 
9550 
9560 
URN 
9570 
9580 
9590 
9595 
9598 
9600 
9610 
962.0 
9630 
9640 
9650 
9660 
9670 
9680 
9690 
9700 
9710 


L PR 1 NT CHR* C 1 64 ) ; CHR * < 1. 4 4 ) . CHR * < 200 ); i RETURN 
L PRINT CHR* ( 182 > ; CHR* (202) - CHR* < 212 > i CHR* ( 160 > ; CHR * (208) 

LPR 1 NTCHR* < 1 36 ) ; CHR* ( 13 4 ) ; s RETURN 

L PRI NTCHR* (188 ) : CHR* ( 194 > : : RE TURN 

LPRINT CHR* ( 1 94 ) ; CHR * ( 188);: RE TURN 

LPR IN TCHR* ( 212 > • CHR* ( 184) - CHR * ( 212 ) : RE TURN 

L PRI NTCHR *( 1 4 4 ) t CH ft* <1 8 4 ) ; CHR *<1.4 4 > ; : RE TURN 

L PRI N TCHR* ( 192 > - CHR * ( 160 ) • i RE TURN 

LPR IN TCHR * ( 1 44 ) ; CHR* ( 144); CHR* ( 1 4 4 ) ; i RE TURN 

LPRINTCHR * (192) - : RETURN 

LP RI NTCHR* ( 22 4 ) ; CHR * ( 1. 52 ) ; CHR* (1.34 ) ; : RE TURN 
L PR I NTCHR* (1 88 ) ; CHR * < 1 9 4 ) - CHR * ( 1 88 ) ; '■ RE TURN 
L PR I N TCHR * ( 1 32 > ; CHR * ( 254 ) ; : RE TURN 

L PRI N TCHR * ( 228 ); CHR * ( 210 ) ; CHR * ( 202. ) ; CHR* < 1 96 ) - i RE TURN 
LPR IN TCHR * ( 1 62 ) ; CHR * < 202 ) - CHR * ( 2 1 4 ) ; CHR * ( 1 62 ); : RETURN 
LPRINTCHR* ( 1 58 ); CHR* (144) ; CHR* (252) ; CHR* ( 1 44 ) - : RET ü R N 
LPRINTCHR* ( 206 ) ; CHR * ( 202 ) ; CHR* ( 202 ) ; CHR *( 178 ) » : RETURN 
LPRI NTCHR* (188); CHR * (20.2) ; CHR * (202): CHR*U78) ; : RETURN 
LPRINTCHR* (226 ) ; CHR * ( 1 46 ) ; CHR* ( 1.38 ) : CHR* <134 ) ; : RE TURN 


: RE 7 
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9720 L PP, IN TCHR * ( ISO > CH Pf ( 202 > ; CH RI ( 202 ) - CH Pt ( ISO > : RE TURN 

9730 LP RIN TCHR* (206 > ; C HR* (220 ) ; CH RI (220 ) y CH Ri ( 288) ; s RE TURN 

9740 LRR. IN TCHR * ( 268 > : R£ TURN 

9750 LPR1NTCHR* ( 2 92 > ; CH RI ( 268) ; i RE TURN 

9755 L PP.INTCHR* (268 >; C H Rt( 2 6 8 > ; C H R * ( 2 6 8 > ; : RETURN 

9760 L PR I N TCHR i ( 2 32 ) ; CHR 1(22 0 ) ;CHP,i( 238) ; CHR*< 232); '. RE TURN 

9765 LPRIN T CHR*( 288 ) CHR* (228) ; CHR * (228) CHR * ( 272); ’■ RE TURN 

9770 L PRINT CH Ri ( 2 54 ) x CH RI ( 2 38 ) ; CH Ri ( 254 ) t t RE TURN 

9775 LPRIN TCHR * ( 254) ; CHR t ( 202) ; CHR * (280 ) ■ : RE TURN 

9780 L PR 2 NT CH Ri ( 288); CH Ri (294); CHR* ( 264) - s RETURN 

9785 L PR IN TCHR t < 254) - CHR * ( 294 > . CHR* (288 ) ; : RE TURN 

9790 LPRINTCHRi (254 ) ; CH Ri ( 202) • CHR* < 202) ; s RE TURN 

9795 LPRIN TCHR* (254) - CHR* (238) : CHR * (238) * : RE TURN 

9800 LPRINTCHRi ( 188) ; CH Ri ( 194); CHRi (220) ; CHR* (242) ; : RE TURN 

9805 LPRIN TCHR* ( 254 ) ; CHR*( 136 ) ; CHR* (254) ■ i RE. TURN 

98 20 L PP, I N TCHR* < 2 9 4 ) - CHR *(25 4 ) ; CHR*( 194) - : RE TURN 

9815 L PRINTC HR * <’ 1 60 ) ; C HR * ( 2 92 ) ; CH R * ( 2 90 > ; i RE TURN 

9820 L PRINT CH Rt ( 254 ) ; CH Ri ( 136); CH Ri ( 2 48 ) ; CH Ri ( 230 > - s RE TURN 

9825 LPRINTCHRi (254 >■ CHR* ( 2 92 > ; CHR* ( 1 92 > ■ : RE TURN 

9830 L PP, 2 N TCHR *(25 4 ) - CH Ri ( 232) ; CHR i ( 2 52 ) ; CH Ri ( 2 32 ) ■ CH Ri ( 254); i RE T 
URN 

9835 LPRINTCHRi (254) - CH Ri ( ). 40) ■ CH Ri ( 176 ) : CH P.i (254 ) - : RE TURN 
9840 LPRINTCHRi ( 288) ; CHR* ( 194) ; CHR* ( 188) ; : RE TURN 
9845 LPRIN TCHR* ( 2 54); CH Ri ( 2 38 );CHRt( 2 42 ) ; 'RETURN 
9850 LPRIN TCHR * ( 188 > • CHR* ( 194) • CHR* ( 162 > CHR* (220 ) • : RE TURN 
9860 L PRINT CH Ri ( 254 ) ; CH P,i (238); CHR * ( 1 46 ) : CHR* (236 ) •• r RE TURN 
9865 L PR, IN TCHR i ( 2 96 > ; CHR* ( 202 ) ; CHR * ( 202 > ; CHR * ( 178 > - i RE TURN 
9870 L PRINT CH Ri (1.30 ) • CH Ri ( 254 ) ; CHR* (230 ) ; : RE TURN 
9875 LPRINTCHRi’,' .290) ; CHR * (192); CHR * (290); s RETURN 
9880 LPRINTCHRi ( 2 58 ) - CH Ri (224 ) ; CHR*( 1 58) ; ■ RE TURN 

9885 LPRINTCHRi (2.54) ■ CHR* ( 160 >• CHR* (152) ■ CHR* (260) -CHR* (254) - : RE 7 
URN 

9890 LPRINTCHRi (230 ) ; CH Ri ( 2 52); CH Ri (230) ; : RETURN 

9895 LPRIN T CHR * ( 234); CHR * (248); CHR * ( 234) ; : RETURN 

9900 LPRINTCHRi (226) ; CH Ri (220) ;CHR* (202) ; CHP,t( 298) ; i RETURN 

9 905 L PR IN TCHR* ( 1 44 ) - CHR* ( 144 ) * CHR * (144 ) ■ : RE TURN 

10010 LPRIHTCHR*( 176) ; CH Ri ( 200 ) ; CHR f ( 248 ) ; CHR i ( 2 92 ) ; s RETURN 

10020 LPRI NTCHRi (254); CHR * (200); CHR* (176); s RE TURN 

20030 LPRINTCHRi ( 176) - CHR * ( 200 ) ; CHR * C 200 ) > r RE TURN 

10040 LPRINTCHRi (176); CHR * (200); CH Ri ( 254 > • : RETURN 

1.0050 L PRINT CH Ri ( 248 ) ; C HP.i ( 2 2 6 ) ; CHR* ( 22 6) ; - RE TURN 

1 0060 L PP, IN T CHR * ( 236 > ; CHR * ( 2 5 4 > - CHR * ( 1 38 > s RE TURN 

2 0070 L PR I NTCHRi ( 2 2 6 ) ; CH Ri ( 2 1 6 ) ; CHR* ( 248 ) ; ' RE TURN 

10080 LPRINTCHRi (254); CHR* (136); CHR* (240) RETURN 

20090 LPR1NTCHR*(250 ) ; * RE TURN 

10100 L PP, IN TCHR * ( 160 ) ; CHR * ( 192 > ; CHR* (250 ) - : RE TURN 
1.0110 L PRINT CHR* ( 254 ) ? CHRi ( 176); CH Ri ( 200) ; : RE TURN 
2 0 1 20 LPRIN TCHR * ( 2 54 > - CHR * ( 1 92 > ; •' RE TU RN 

2 0 230 LPRINTCHRi ( 2 48 ) ; CHR * ( 1 36 ) ? CHR*< 248) f CHR* ( 236) ; CH P.i ( 2 40 ) • :RE 
TURN 

20235 LPR I NTCHRi (248); CHRi ( 2 36 );CHR*(2 40) ; : P,E TURN 
101 40 L PP. IN TCHR* ( 276) ; CHR * ( 200 ) ; CHR * ( 276 ) ; i RETURN 
20150 LPRIN TCHR i ( 2 48 ); CHRi ( 1 52 ) ;CHR*(1 52 ); ’■ RETURN 
10160 L PRIM TCHR* ( 152 ) ; CHR * (152 ) ; CHR * (248 ) ; : RETURN 
20270 LPRIN TCHR * ( 2 48 ) ; CHRi ( 236 ) ; s RE TURN 
10280 L PR IN TCHR * (208 > ■ CHR * (232) ; CHR * ( 168 ) ; : RE TURN 
202 90 LPP.1N TCHR * ( 236 ) ; CHR *(254) ; CHRi ( 200) ; - RE TURN 
20200 LPRINTCHRi (248); CHR* ( 292); CHR * (248) ; '.RETURN 
20210 LPRINTCHR*( 184) ;CHP,i( 192) ; CH Ri ( 184 ) f sRE TURN 

20220 LPRIN TCHR* (184 > ; CHRi ( 1 92 > ; CHR*( 276 ) ; CHR* ( 1 92 >; CHR * ( 184 )■• '.RE 
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TURN 

.? 023 0 L P R I NTCftRt ( 2 1 6 ) : C HR S? <' 1 6 0 ) r C HR f < 2 1 6 > : ■■ RE TU RH 
.t 02 40 L PR I N TCHP.S ( 200 > ; CH RS- < 276 > : OHRS < 236 > : : RE TURN 
,1 02 SO L PR I H TC.HR •$ ( 200 > ;• CH RS ( 232 > r CHR * < 22.6 > : CH RS ( 200 > - : RE TURN 



GENIE DATA 

Programmierer 

Wettbewerb 

Es gibt Wettbewerbe, bei denen ein x-beliebiges Labyrinth finden, für Ihre Maus. Wenn Sie fertig 
eine elektronisch gesteuerte Maus, ohne hängen zu bleiben. Das ein- sind, speichern Sie alles auf Cas- 
angetrieben von einem oder meh- zige, das bei jedem Labyrinth sette und schicken es uns. Dann 
reren Elektromotoren, auf Rä- gleich ist, ist der Ein- und Aus- nehmen Sie am Wettbewerb teil! 
dern, ein Labyrinth durchqueren gang. Der Eingang liegt immer Wir lassen Ihre Maus dann drei- 
muß. Diese Mäuse sind natürlich bei 0,2 und der Ausgang bei mal laufen, nehmen Le Durch- 
sehr aufwendig konstruiert, denn 123,43. Mit diesen Zahlen sind schnittszeit, und wer;- - aus, wo 
sie haben zum Einen eine kom- die Grafikkoordinaten beim Ge- Sie liegen. Einsendeschluß ist der 
plette elektronische Steuerung, nie/TRS 80 gemeint. Wie soll 10 Juni 1984. In der nächsten 
mit Prozessor, ROM und RAM, jetzt Ihr Programm aussehen? GENIE DATA können wir dann 
zum Anderen Sensoren, um die Ihre Maus muß ein Grafikpunkt warscheinlich schon einmal be- 
Labyrinthwände zu erkennen, sein, der ständig sichtbar bei richten, wie es aussieht, 
und schließlich haben sie auch 0,2 startet und bei 123,43 auf- Und was erwartet Sie, wenn 
noch Räder, Getriebe usw. hört zu laufen. Der Punkt darf Sie gewinnen’ 

Was Sie tun sollen, ist ganz auf seinem Weg durch das Laby- Den Gewinner erwarten 200,- 
schnell erklärt; rinth niemals unsichtbar werden! DM, den Zweiten und Dritten 

Sie sollen ein Programm schrei- Weiterhin darf Ihre Maus nichts ein kostenloses GENIE DATA 
ben, das in der Lage ist, eine am Labyrinth ändern. Sie darf Abo. 

Maus durch ein Labyrinth zu also nicht durch Wände laufen, Ausserdem erhält jeder Teil- 
steuern. oder Spuren hinterlassen! Und nehmer von uns eine Ehrenur- 

Aber, aber, Sie brauchen doch Ihr Programm darf nur in Basic künde. Übrigens: Der Rechts- 
keinen Schreck zu bekommen! geschrieben sein ! Also keine Rou- weg ist bei unserem Wettbe- 
Sie müssen ja keine Maus bauen, tinen in Maschinensprache, kein werb selbstverständlich ausge- 
sondern nur ein Steuerprogramm Compiler oder ähnliches. Anson- schlossen. 

schreiben! sten - erlaubt ist, was gefällt. Jetzt also los, lassen Sie die 

Und das machen wir Ihnen Natürlich sollte Ihre Maus mög- Mäuse flitzen, und nehmen Sie 
ganz leicht. Im Anschluß finden liehst schnell durch das Laby- an unserem Wettbewerb teil ! 

Sie ein Programm, das Ihnen auf rinth kommen, denn die schnellste Einsendungen an : 

Ihrem Bildschirm ein Labyrinth Maus gewinnt! H. Hübben, 

aufbaut, und zwar auf Zufalls- Was Sie tun müssen, ist also Kennwort Mäuserennen 

basis. Es entstehen also immer folgendes. Sie tippen unser Laby- Mühlbachstraße 2 

wieder neue Labyrinthe. rinth-Programm ab, wobei Sie an 5429 Marienfels/Ts. 

Und das stellt auch schon die diesem Programm nichts verän- Viel Spaß wünscht Ihnen Jhre 
erste Anforderung an Ihr Pro- dern dürfen I Ab Zeile 100 schrei- GENIE DATA Redaktion ! 
gramm. Ihre „Maus" muß durch ben Sie jetzt das Steuerprogramm 
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Li st i na für Genie I. II. unt TRS SO 


1 CLB 

2 ONERRORGOT026 

3 FORI =0T 0 1 22 : SET (I.O) : BET (1.45) :NEXTI 

4 FOF: I -0TQ45: SET (O. I ) : SET (123.1): MEXTI 

5 FOF.'X 1 =0T0 1 22STEF’3 : I FF'O I NT < X 1 . 45) THENX = X 1 : Y~45 : GOSUB 1 1 

4 NEXTX1 ■ 

7 F0RY1 =0TO45STEF'3: FOF:X 1 =OTD 1 223TEP3 
3 IFPDINT (XI. Y 1 ) THENX =X 1 : Y“Y1 : GGSLJB1 1 
*=? NEXTX1 : NEXTY1 

10 GDT090: 7 Ab 100 startet Ihr Maus-F'r oar amm ! ! ! 

11 * Ab gesetztem Punkt. Wand ziehen 

12 Z=l 

13 F:=F:ND(4) 

14 Z = Z+1 : IFZ=10THENZ=1: RETURN 

15 IFF:=1THENI FF'O INT (X-3. Y> =-lTHENG0T01 3 

16 IFR=2THENI FF'O INT ( X+3. Y) =-lTHENGOT013 

17 IFR-3THENIFF0INT (X. Y-3) =- 1 THENG0T01 3 
ie IFR=4THEN IFPDINT (X. Y-*-3> =-l THENG0T013 

19 FORI = 1 T03 

20 IFF:=1 THENX =X- 1 

21 I FR— 2THENX=X+ 1 

22 IFR=3THENY=Y- 1 

23 IFR=4THENY=Y+1 

24 BET(X.Y) 

25 NEXTI : Q=RND (3) : I FQ= 1 THENGOTO 15ELSEG0T0 13 

26 RESUME13 

90 RESET (0. 2) : RESET U 23. 43) 

10O 7 Hier muß Ihr Programm beginnen 


Thomas M. Binzinger 


Assembler- 


Da die Begrüßung „Hallo Leute" 
inzwischen schon ein wenig abge- 
griffen ist, fangen wir diesmal 
gleich mit der Auflösung der Fra- 
gen vom letzten Teil an : i 

1 . Kann man die Zahl 260 in 
einem Byte darstellen? 
Natürlich nicht, aufgrund des 8 
Bit Codes kann man ja nur 2 hoch 
8, also 256 verschiedene Zahlen 
darstellen. Die größte darstellbare 
Zahl ist also 255. 

2. Malen Sie ein Byte auf, 
daß die Zahl 3 darstellt. 

0000001 1 

3. Kann man mit einem Bit 
die Zahl 1 darstellen? 

Na klar! Wenn es an ist hat es 
ja den Wert 1 (=Strom). 

4. Ist ORG eine Anweisung an 

die CPU? 

Nein! Im Text habe ich ausführ- 
lichst erklärt, daß es nur eine 
Hilfsanweisung für den Assembler 

ist. 

5. Ist LD eine Anweisung für 

die CPU? 

Eigentlich schon, den Lade mit ist 
ja ein Befehl, den die CPU aus- 
führen soll, aber für die ganz 
pingeligen : Die beiden Buchstaben 
selber sind natürlich kein Befehl 
an die CPU, sie stehen nur für eine 
Zahl, die diesen Befehl darstellt. 

6. Ist ,,HL,4400H'' ein Argument 
oder ein Befehl? 

Es ist das Argument zum LD 
Befehl. 

7. Warum gehen die Daten in 
einem ROM verloren, wenn 
man den Computer ausschaltet? 
Ja, ja, bei solchen Fragen zeigt 
sich, ob man ein aufmerksamer 
Leser ist. Die Daten gehen gar- 
nicht verloren, jedenfalls nicht die, 
die in einem ROM stehen. Allen- 
falls die Daten, die in einem RAM 
stehen, gehen verloren. 

Jedem, der hier etwas falsch 
gemacht hat, empfehle ich drin- 
gend, sich noch einmal die ersten 
beiden Folgen durchzulesen. 

So, und nun weiter. Erinnern 


cc Computer Studio GmbH 
Elisabethstraße 5 
4600 Dortmund 1 
Tel.: 0231-528184 
Tx 822 631 cccsd 


COMPUHRSYSHME 


GENIE III 

64 KB RAM, 2x720 KB Disk-Speicher, 

Bildschirm 64x16 oder 80x24 Zeichen. TRS-80* 

Mod. 1 kompatibel 

CP/M* fähig 6900,- 

GENIE I 

64 KB RAM. Microsoft-BASIC, Bildschirm 64x16 
Zeichen, Level IV ROM. TRS-80* Mod. 1 
kompatibel 998,-- 

NEU: TANDY MODELL 100 ab 1850,-- 

COLOUR GENIE 

Neueste Version mit Meßinstrument I 
16 KB RAM, Microsoft-BASIC & Grafik, 16 Farben 
auf Ihrem Farbfernseher, TRS-80® Mod. 1 
BASIC kompatibel 570,-- 

dto. mit 32 KB RAM 625,-- 

a TRS-80 ist eingetragenes Warenzeichen der Tandy 
Corp. .- CP/M ist eingetragenes Warenzeichen von Digital 
Researcn. 


PERIPHERIE 


Slim Line Laufwerk, 40 Track, SS/DD, 

250 K-Byte Speicherkapazität 625,- 

Slim Line Laufwerk, Doppelfloppy, kompl. 
mit Gehäuse, Netzteil u. Kabel 1499,- 

Andere Laufwerke und Kapazitäten auf Anfrage 
lieferbar. 

Floppy Disk Controller für Video Genie und Tandy 
(double u. single density) incl. Drucker Interface und 
2 cc 400 Disk, im Gehäuse mit Netzteil und Kabel; 
voll Software kompatibel zu 

Tandy TRS-80® 1.995,-- 

Expansion Interface für TRS-80* incl. 32 K RAM 925,-- 
Double Density Controller für Tandy und 
Video Genie 198,-- 

16 K Erweiterung für Colour Genie incl. Einbau 79,-- 

Star Drucker Gemini-lOX, 120 Z/sec, 

1920 Pkt. pro Zeile 998,-- 

Zenith Monitor grün o. bernstein entspiegelt 319,-- 

Datenrecorder 6019 (bitte Datenblatt anfordern) 149,-- 


VERBRAUCHSMATERIAL 


BASF Disketten, Qualimetrik. 10 Stück 

49,-- 

Verbatim Disketten mit Verstärkungsring 
10 Stück, DD, mit Archivbox 

79,-- 

Datencassette C 20 
Farbbänder für: 


3,30 

Tandy Line Printer 1, II u. IV je 

15 f - 

Tandy Line Printer III u. V 

je 

19,50 

Tandy DW II 

je 

17,-- 

Epson MX 80 

je 

19,” 

Itoh 8510, 1550 

je 

20,-- 

Oki Microline, Star 

je 

9,50 


Rest auf Anfrage. 

Alle hier angebotenen Produkte sind ab Lager lieferbar. 
Alle Preise incl. Mehrwertsteuer. 

NEU: 16 Seiten Colour Genie SoftwarellJta ^ 

kostonlos infordern 1 

Wir suchen ständig naua Programme für Colour Genial 
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JPETER, DER ASSEMBLER-KURS 

IST JA WUNDERBAR, 

aber man sollte auch zwischendurch 
mal ne kleine Pause machen"!!! 


wir uns: Eine Speicherstelle ist 
immer aus 8 Bit aufgebaut, da- 
her kann sie eine von 256 verschie- 
denen Zahlen darstellen. Das ist 
zwar schon etwas mehr als die 
zwei Zahlen in einem Bit, aber 
immer noch nicht genug. 

Also hängen wir zwei Speicher- 
stellen zusammen und, voila, ha- 
ben 16 Bit! mit 16 Bit ist die 
größte Zahl die wir darstellen kön- 
nen 2 hoch 16 = 65536. Das ist 
auch die größte Zahl, mit der die 
CPU rechnen kann, denn auch sie 
benutzt diesen Trick mit den zwei 
Speicherstellen. Wie und wo, daß 
kommt gleich. 

Aber weil dies die größte Zahl 
ist, die die CPU verstehen kann, 
ist es auch gleichzeitig die maxi- 
male Anzahl von Speicherstellen 
im Computer. Sicher haben Sie 
auch schon diesen Satz gehört : 
,,Die Z-80 CPU kann maximal 
64 K adressieren". 

Und jetzt kommt die unver- 
meidliche Frage: „Wieso 64 K?". 
Wir haben doch gerade gesagt, 
daß 65536 die maximale Anzahl 
ist. dann müssten es doch eigent- 
lich 65 K, oder ganz genau, 
65,536 K sein? 

Richtig! Wir können tatsächlich 
65536 Speicherstellen ansprechen, 
aber es sind trotzdem 64 Kl Ein K 
entspricht nämlich nicht, wie ich 
Ihnen letztesmal erklärt hatte, ein- 
tausend, sondern genau 1024 
Speicherstellen. 

Inzwischen sind Sie „reif" ge- 
nug, um sich das selbst zu erklä- 
ren. Denn auch das hängt mit der 
Bit Kodierung zusammen. Denken 
Sie an 256 ..., na, dämmert es? 
Und wenn Sie mir jetzt immer 
noch nicht glauben, dann nehmen 
Sie Ihren Taschenrechner und 
rechnen Sie nach. Na? Wenn Sie 
jetzt etwas anderes als 64 heraus- 
bekommen haben, dann müssen 
die Batterien des Rechners aus- 
gewechselt werden. 

An der CPU, die ja auch eines 


von diesen schwarzen Plastik käst- 
chen im Computer ist, sind 16 
der 40 Anschlüsse der sogenannte 
Adreßbus. Diese 16 Leitungen 
können wie üblich, Strom/kein 
Strom enthalten, wir können also 
Zahlen von 0 bis 65535 damit 
darstellen. Und an diese Leitun- 
gen sind die Speicherbausteine 
Ihres Computers angeschlossen. 
Mit diesen 16 Leitungen sagt die 
CPU den Sopeicherbausteinen, 
welche der 65536 Speicherstellen 
sie ansprechen will. 

Wenn der Strompegel auf den 
Leitungen also so aussieht: 
0000000000000000 
(das ist eine Zahl, was? Sparen Sie 
sich das Nachzählen, es sind 16 
Nullen!), dann will die CPU die 
Speicherstelle 0 ansprechen, und 
wenn es so aussieht : 

1111111111111111 
dann fühlt sich die Speicherstelle 

65535 angesprochen. Klar? 

Sie sehen irgendwie noch nicht 
überzeugt aus. Welche Speicher- 
stelle wi r d denn damit ange- 
sprochen? 

0000000000000011 
Das ist einfach! Denken Sie nur 
an das Bild aus Folge 21 

Und wenn Sie sehen wollen, wie 
in unseren Computern diese 

65536 Speicherstellen verwendet 
werden, dann schauen Sie sich 
Bild 1 anl 

HALT! Lesen Sie erst weiter, 
wenn Sie alles verstanden haben ! 

Sonst lesen Sie sich den vori- 
gen Abschnitt nochmal durch, 
sooft, bis alles sitzt! 

So, und jetzt was ganz anderes. 
Der Speicher, von dem wir bis 
jetzt soviel geredet haben, sitzt 
ja in den Speicherbausteinen. Ist 
also in der CPU selbst überhaupt 
kein Speicher? Aber doch! Auch 
in der CPU selbst ist Speicher ent- 
halten, allerdings nicht sehr viel. 
Dieses RAM, das fest in der CPU 
eingebaut ist, nennt man die Re- 
gister. Wieviele es sind, und wozu 


sie da sind, daß möchte ich jetzt 
erklären. 

Erstens: Es sind 22! Sie heis- 
sen: A, F, 8, C, D, E, H, L, A', 
F', B\ C‘, D', E', H', L\ IX, IY, 
SP, PC, I, R. 

Insgesamt sind es 27 Speicher- 
stellen, denn die Register IX, IY, 
SP und PC bestehen aus jeweils 
2 Speicherstellen. Diese Register 
können daher Zahlen von 0 bis 
65535 enthalten, die anderen nur 
Zahlen von 0 bis 255. 

„Fein", werden Sie sagen, 
„aber wozu sind diese Dinger 
da?”. 

Über sie läuft der ganze Daten- . 
verkehr ab, und nur mit ihnen 
kann die CPU rechnen. Sie dienen 
ausserdem dazu Ergebnisse von 
Rechnungen und Vergleichen fest- 
zu halten. 

Leider haben wir jedoch nicht 
immer alle Register gleichzeitig 
zur Verfügung, wir müssen näm- 
lich zwischen denen mit, und ohne 
Strich wählen. Das heißt, wir kön- 
nen gleichzeitig nur mit 

A, F, B, C, D, E, H, L, 

SP, PC, IX, IY, I, R. 
oder mit 

A 1 , F', B'C', D', E', H', L', 

SP, PC, IX, IY, I, R 
arbeiten. 

Um diese Registersätze anzu- 
wählen, gibt es einen bestimmten 
Befehl, den wir später kennen 
lernen werden. 

Das A-Register ist sehr wichtig, 
es ist nämlich das einzige Regi- 
ster, dessen Inhalt man mit an- 
deren Registerinhalten oder Spei- 
cherstelleninhalten (ein Super- 
Wort ...) vergleichen kann. Auch 
funktionieren viele Rechenoperati- 
onen nur mit diesem Register. 

F kommt von Flags. Dieses 
Register gibt zum Beispiel das 
Ergebnis eines Vergleiches an 
(Größer, Kleiner etc.). 

B bis L sind allgemeine Re- 
gister, die für viele Aufgaben be- 
nutzt werden können. Für wel- 
che Aufgaben im Einzelnen, wer- 
den wir sehen, wenn wir anfan- 
gen zu programmieren. Um in die- 
sen Registern auch größere Zahlen 
speichern und verarbeiten zu kön- 
nen, kann man jeweils zwei von 
Ihnen zusammenfassen (unser 




KURSUS 


Trick von weiter vorn} : 

Es entstehen dann folgende 
16 Bit Register: BC, DE und HL. 

IX und IY sind besondere 
Register, deshalb kann man mit 
Ihnen auch einige besondere Din- 
ge machen, die man mit den an- 
deren Registern nicht machen 
kann (geheimnissvoll, nicht?). Die 
beiden sind 16 Bit Register, be- 
stehen also aus zwei Speicherstel- 
len. Man kann Sie aber im Ge- 
gensatz zu den Registern BC, DE 
und HL, nicht trennen. 

Das SP Register ist ebenfalls 
ein 16 Bit Register. Es gibt die 
Stelle im Speicher an, wo der 
sogenannte Stack steht. Was das 
ist, kommt später. 

Daher auch der Name: Stack 
Pointer. 

Bei dem PC Register kommt der 
Name von Program Counter. Es 
gibt an, an welcher Stelle im Spei- 
cher der Befehl steht, den die CPU 
gerade abarbeitet. Um PC brau- 
chen wir uns normalerweise nicht 
zu kümmern, da die CPU es selbst 
nachstellt. Von den Ausnahmen, 
die es immer gibt, wollen wir 
jetzt noch nicht sprechen. 

Vergessen Sie das I Register. 
Es ist das sogennante Interrupt- 
Register, aber das braucht uns im 
Moment überhaupt nicht zu inte- 
ressieren. 

Das R, beim R Register, kommt 
von Refresh, zu Deutsch Auf- 
frisch Register. Was frischt der 
Computer denn da auf? Sein Ge- 
dächtnis vielleicht? Genau! Eine 
bestimmte Sorte von Speicherbau- 
steinen, wie Sie auch in unseren 
Computern Anwendung findet, 
vergißt nach einigen Sekunden- 
bruchteilen alles, was vorher drin- 
stand. Deshalb muß der Inhalt 
dauernd aufgefrischt werden, und 
dazu braucht die CPU dieses 
Register. Da sie das ganz alleine 
macht, ohne das wir uns darum 
kümmern, könnten wir es doch ei- 
gentlich vergessen. Aber es gibt 
doch eine ganz interessante An- 
wendung dafür, (das hört sich an 
wie eine Schallplatte mit Sprung) 
erst später kennen lernen werden. 
Was du heute kannst besorgen, das 
verschiebe am Besten auf Mor- 
gen ... 
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CENTRONICS-INTER FACE 
für Typenrad-Schreibmaschinen 


400,- 
(mit Einbau) 


RAM 

Test-Programm, findet selbst hartnäckigste RAM-Fehler 


Cass. 59,- 
Cass. 49,- 


E D I 

Bildschirm-orientierter Editor 
T F I X 2.4 

Erweiterte Tastatur-Routine incl. EDI, Standard- und 
selbstdefinierte Abkürzungen EPROM 125,- 

SED AS 3.2 

Komfortabler Screen-Editor + Assembler 

Cass./Disk. 115,-/145,- 

SC R ED I 2.7 

Screen-Editor zur Textverarbaitung Cass./Disk. 95, -/1 15,- 

R E A S S 3.2 

Reassembler, erzeugt Assembler-Quellfiles für SEDAS 

Cass./Disk. 85,-/105, - 

M AD 2.3 

Komfortabler Monitor mit Line-Assembler, 

Disassembler, Cassetten-Routinen, Trace, etc. 

Cass./Disk. 139,-/159,- 

TRANSC für Colour Genie 

schreibt und liest Gl, G 1 1 und TRS80-Cass. Cass. 39,- 

T R A NS V für Gl und II 

schreibt Cassetten für Colour Genie Cass. 39, •• 

INTERFACE FÜR GENIE III zum Laden von 

Cassetten (TRS80, Genie I u. II) 200,- 

Weitere umfangreiche Softwareliste f.Colour-Genie a. Anfrage 
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So, und nun genug gedacht, 
machen Sie eine Pause. Führen Sie 
Ihren Hund Gassi, oder lassen Sie 
sich vom Fernseher berieseln. 
Hauptsache, Sie vergessen das 
Ganze hier für eine Weile. Das 
heißt natürlich nicht, daß Sie sich 
das Ganze nicht noch einmal 
durchlesen müssten. 

OK, da sind Sie wieder. Jetzt 
dürfen Sie endlich etwas tun, was 
Ihnen Spaß macht. Schalten Sie 
den Computer ein. Legen Sie 
Ihren Editor/Assembler ein und 
geben Sie das Programm aus der 
letzten Folge noch mal ein. 

Ich werde nur das Colour Genie 
Programm erklären, da beim zwei- 
ten Programm ja nur ein paar Zah- 
len verschieden sind. 

Also in Zeile 10 steht ORG 
7F00H. ORG ist wie gesagt nur 
eine Hilfe für den Assembler und 
kein Befehl für die CPU. ORG 
7F00H bedeutet, daß das Pro- 
gramm an Speicherstelle 7F00H 
anfängt. ,,7F00H"? Was soll denn 


das für eine Zahl sein, werden 
Sie jetzt ganz zurecht fragen. 
Nun, das ist Hexadezimal! Ich 
habe momentan selbst wenig Lust, 
Ihnen daß zu erklären, aber be- 
reiten Sie sich schon einmal inner- 
lich darauf vor, daß das in der 
nächsten Folge kommt. Es sei nur 
soviel gesagt, 7F00H bedeutet 
32512. Das Programm startet also 
an Speicherstelle 32512. 

In Zeile 20 steht die Sprung- 
marke „START”, dann die An- 
weisung LD. LD bedeutet Lade 
mit. Was wird womit geladen? 
Das Register HL mit der Zahl 
4400 H. Klaro! 

Die Zeilen 30 und 40 müssten 
Sie sich nun selbst erklären kön- 
nen. Wenn nicht, dann lassen Sie 
sich begraben. Natürlich nur mit 
den GENIE DATA Ausgaben, in 
denen der Assembler-Kurs steht. 
Damit Sie nochmal alles nachle- 
sen können! Aber jetzt! Warum 
stehen in Zeile 50 Klammern um 
HL? Wenn um ein Register Klam- 
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mcrn stehen, dann ist nicht das 
Register selbst gemeint, sondern 
die Speicherstelle, auf die das Re- 
gister zeigt ! 

Gesprochen würde Zeile 50 also 
lauten : Lade die Speicherzelle, de- 
ren Adresse im HL Register steht, 
mit der Zahl 202. Aber welche 
Speicherstelle ist das? Es ist die 
Speicherstelle 4400 H = 17.408. 
Denn diese Zahl haben wir ja in 
Zeile 20 in HL hineingeschrieben. 

Nun, erinnern Sie sich, daß ich 
sagte, wir würden auch Buchsta- 
ben und Zeichen ganz bestimmte 
Zahlen zuordnen, damit wir Sie 
speichern könnten? A = 65, B = 
66 etc. Nun, 202 ist der Code, für 
einen kleinen weißen Block. Und 
17408 ist „zufällig'-' der Anfang 
des Bildschirmspeichers. Alles, was 
wir in 17408 hineinschreiben, 
erscheint in der oberren, linken 
Ecke des Bildschirms. Wir zeich- 
nen also einen kleinen weißen 
Block auf den Bildschirm. 

Preisfrage. Wie bekommen wir 
den ganzen Bildschirm voll dieser 
Blöcke? 

Das macht der Befehl in Zeile 
60. Dieser Befehl ist ein Block- 
Move-Befehl. Das heißt, dieser Be- 


fehl kann ganze Speicherblöcke, 
also viele einzelne Speicherstellen 
wo anders hin transportieren. Na- 
türlich nicht die Speicherstellen 
selbst, sondern nur deren Inhalt. 
Er kopiert alle Speicherstellen, 
vom Inhalt des Registers HL an, 
zu der Speicherstelle, deren Inhalt 
im DE Register steht. Und zwar 
kopiert er soviele Speicher- 
steilen, wie in BC steht. 

In unserem Fall kopiert er also 
3FFH Speicherstellen von 4400 H 
nach 4401 H. 

Und jetzt überlegen Sie mal; 
Wenn wir in 4400 H eine 202 
schreiben, also diesen kleinen 
Block, und dann den Inhalt: von 
4400H nach 4401 H kopieren, 
dann haben wir schon 2 kleine 
Blöcke auf dem Bildschirm. Dann 
wird der Inhalt von 4401 H 
(kleiner Block) 4402 H kopiert 
und, schwupp, und schon haben 
wir 3 kleine Blöckchen auf dem 
Schirm. Das geht dann so weiter, 
bis 3FFH Blöckchen auf dem 
Schirm stehen, dann ist alles 
weiß. Raffiniert nicht I . : 

Was passiert, wenn wir in 
Zeile 20 anstelle von 4400 H 
einfach 0 einsetzen? 


Na? Der ganze Bildschirm ist 
voll von merkwürdigem Unsinn, 
aber man kann auch sinnvolles 
erkennen, wie zum Beispiel 
:..MEM SIZE". Wir haben jetzt 
die ersten 3FFH Speicherstellen 
von Adresse 0 von Adresse 0 in 
den Bildschirmspeicher geschrie- 
ben. Ab Adresse 0 steht aber das 
Basic. Das heißt, wir können jetzt 
sehen, wie das Basic aussieht I 
So, Schluß für heute! Hier 
noch die Testfragen, bis zum 
nächsten Mal! 

1 . Wozu ist das R Register da? 

2. An welcher Speicherstelle 
■fängt unser Programmbeispiel 
an? 

3. Können wir gleichzeitig mit 
dem A und A' Register arbei- 
ten? 

4. Was ist die größte und die klein- 
stes Zahl, die wir mit 16 Bit 
.darstellen können? 

5. Können wir das C Register mit 
der Zahl 300 füllen? 

6. Und wie ist es mit dem BC 
Register? 

/.Welche Zahl muß man im Pro- 
grammbeispiel ändern, damit 
nur 10 Blöckchen auf dem 
Bildschirm erscheinen? 

(In beiden Programmen gleich.) 


HEINZ HÜBBEN 
Abt. Softwareverlag 
Mühlbachstr. 2 
D-5429 Marienfels 
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Zeilen Schieber 


Das vorliegende Programm ermög- 
licht das Verlegen einer Basiczei- 
le mit einem einfachen Befehl, 
z, B. NAME 55,10, daß heißt, 
die Zeile 55 wird aus 'dem Text 
entfernt, und ihr Inhalt erscheint 
als Zeile 10, Die alte Zeile wird 
dabei gelöscht. Diese Arbeitsweise 
bewährt sich besonders bei sehr 
langen Programmzeilen und er- 
leichtert ein „Verschönern" fer- 
tiger Programme. 

Ein Nachteil soll nicht ver- 
schwiegen werden, Sprünge auf 
die alte Zeile werden nicht umge- 
rechnet. 

Im folgenden eine Übersicht 
über die Arbeitsweise: 

Die Zeilen 10 und 20 verur- 
sachen in bekannter Weise einen 
Autostart nach dem Laden des 
Systembandes. Entfällt diese Op- 
tion, können (müssen aber nicht) 
die Zeilen 60 und 70 entfernt 
werden. Im Initialisierungsteil wird 
ein im Basic nicht verwendeter 
Befehl mit der Startadresse dieses 
Programmes versehen, in unserem 
Beispiel der Befehl NAME, es ist 
auch jeder andere freie Befehl 
möglich, z B. LINE. Darauf folgt 
das Kurzschließen des für den Au- 
tostart verwendeten CALL's der 
Bandleseroutine, und der Sprung 
in die Warmstartroutine. 

Nachdem der Befehl NAME 
vom Interpreter erkannt worden 
ist, wird in Zeile 90 zunächst über- 
prüft, ob überhaupt eine Zeilen- 
nummer folgt; das gesetzte CY 
Flag signalisiert eine Ziffer. An- 
dernfalls führt ein Sprung direkt 
in die "SN-ERROR-Routine". 

In Zeile 110 bis 120 wird die- 
se Zahl ausgewertet, in das Regi- 
sterpaar DE gebracht und geret- 
tet. Sodann wird auf ein Komma 
geachtet (RST 08 H ist eine Rou- 
tine des Interpreters, die zwei 
Zeichen auf Gleichheit testet 
und ggf. die SN-ERROR-Routine 
aufruft, dabei folgt der Vergleichs- 


code direkt hinter RST 08 H.), 
mit CALL 1E5AH wird die zwei- 
te Zeilennummer ermittelt und 
nach DE gebracht (150). Enthält 
DE den Wert 00, war keine wei- 
tere Zahl eingegeben worden, also 
SN-ERROR. 

In 190 bis 210 werden die er- 
mittelten Zeiiennummern zwi- 
schen DE, HL und (SP) derart 
getauscht, daß das Registerpaar 
HL die alte Zeilennummer erhält, 
weil damit (220) die Zeile im 
Basic-Text gesucht wird. Sollte 
sie nicht existieren, wird nachfol- 
gend UL-ERROR aufgerufen. 

Andernfalls ist in Registerpaar 
BC die Anfangsadresse dieser Zeile 
und in HL die Adresse der darauf- 
folgenden Zeile hinterlegt. In 
240 bis 310 werden diese Werte 
gerettet, getauscht und nach Über- 
springen der Zeilenpointer und 
der Zeilennummer im UP CALL 
2B7EH (320) benötigt, um den 
Inhalt der Zeile in einen Zwischen- 
buffer (I/O Buffer) zu laden. Da- 
bei werden die Basic-Token in les- 
baren Text übersetzt. 

Um diese Zeile nun zu löschen, 
wird einfach der darauffolgende 
Basic-Text durch Aufrücken darü- 
ber geschrieben (350 bis 410). 

Das neue Ende des Programms 
wird in 40F9 H wieder abgelegt. 

Weil durch diese Operation die 
Zeilenpointer, also die Zeilenan- 
fangsadressen, nicht mehr stim- 
men, müssen sie durch CALL 
1 AF8H erneuert werden. 

Anschliessend wird der Text 
„READY" ausgegeben (460 bis 
470). Erst jetzt wird die neue 
Zeilennummer vom Stack geholt, 
das Registerpaar HL wird mit dem 
Anfangswert des I/O Buffers be- 
legt und das Carry-Flag gesetzt. 

Mit JP 1A18H wird mitten in 
die Haupteingabeschleife gesprun- 
gen, in der der I/O Bufferinhalt 


mit der neuen Zeilennummer 
(in DE) so abgespeichert wird, 
als ob er gerade über die Tasta- 
tur eingegeben worden wäre. Das 
gesetzte Cy-Flag verhindert dabei 
eine direkte Ausführung der Einga- 
bezeile. 

Abschließend ein paar kleine 
Hinweise für „Bastler". 

Mit der angegebenen ORG-An- 
weisung wird das Programm in den 
für DOS reservierten Bereich gela- 
den, was den Vorteil bringt, 
keinen Anwenderspeicher zu ko- 
sten. Man kann es natürlich auch 
an das Ende des freien RAM's 
laden, muß aber dann MEM SIZE 
entsprechend setzen oder (evtl.. 
in der Initialisierung) 40B1H und 
40B2H entsprechend laden. Im 
letzteren Fall muß dann ein 
CLEAR nnnn folgen, damit der 
Interpreter über die Änderung in- 
formiert wird. 

Wer sich einige nette Abende 
und Nächte machen will, kann 
auch versuchen, das Programm da- 
hin zu ändern, daß mit NAME 
55=10 die Zeile 55 als Zeile 10 
kopiert wird, ohne Zeile 55 zu 
löschen. Dazu könnte man sich 
eine Speicherzelle als Flag ein- 
richten, und in Abhängigkeit von 
Ihrem Inhalt die Zeilenlöschrou- 
tine (350 bis 450) überspringen. 

Allerdings muß dann der Test 
auf das Komma so erweiter wer- 
den, das auch ein "=” akzeptiert 
wird und abhängig davon das vor- 
genannte Flag beeinflußt wird. 
Wer sich noch vornimmt, den 
eingangs genannten Nachteil be- 
züglich der GOTO's und GOSUB's 
zu beheben, sollte noch einige 
Nächte dazu rechnen und über 
ein ROM-Listing verfügen. Und 
jede Erweiterung passt nicht mehr 
in das freie DOS-RAM ! 

Ausserdem könnte man ganze 
Programmblöcke verschieben . . . 
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SOFTWARE 


10 


ORG 41E2H 

20 


JP INIT 

30 


ORG 43A0H 

40 

INIT 

LD HL.’ START 

50 


LD < 4 1 8FH > > HL 

60 


LD A> 0C9H 

70 


LD (41E2H),A 

80 


JP 66H 

90 

START 

JP NC, 1997H 
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IOC ; 

110 
120 
130 
140 
145 ; 

150 
160 
170 
180 
IBS 5 
190 
200 
210 
215 ; 

220 

230 

240 

250 

260 

270 

280 

290 

300 

310 

320 

330 

340 

350 

355 3 

360 LOOP 

370 

380 

390 

400 

410 

420 

430 

440 

445 ; 

450 
455 3 
460 
470 
475 ; 

480 

490 

500 

510 

520 

530 
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Tausche TRS-80/V.G. Pro- 
gramme Manfred Blaschek, 


A-1100 Wien 
str. 111/8/9 


Inzersdorfer- 


CALL 1E4FH 
PUSH DE 
RST 08H 
DEFB 2CH 

CALL 1E5AH 
LD A,D 
OR E 

JP Z, 1997H 

EX DE, HL 
POP DE 
PUSH HL 

CALL 1B2CH 
JP NC, 1ED9H 
PUSH BC 
PUSH HL 
LD H, B 
LD L,C 
INC HL 
INC HL 
INC HL 
INC HL 
CALL 2B7EH 
POP DE 
POP BC 

LD HL, (40F9H) 

LD A, (DE) 

LD (BC) , A 
INC BC 
INC DE 
RST 18H 
JR NZ,LOOP 
LD H, B 
LD L,C 

LD (40F9H) , HL 

CALL 1AFSH 

LD HL, 1929H 
CALL 2BA7H 

POP DE 

LD HL, (40A7H) 
SCF 

PUSH AF 
JP 1A98H 
END INIT 
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Achtung! Einsteigerl Verk. 
Colour Genie 32K mit Rec. 
(1 Jahr alt) 400,- DM und 
meine gesamte Programm- 
bibliothek, Anschlußanlei- 
tungen f. Atari Joyst. Aus- 
senlautsprecher u. vieles 
mehr, Preis VB. H.-J. Win- 
terscheid, Bennauerstr. 1, 
5300 Bonn 1,0228/224353 

TAUSCHPARTNER GE- 
SUCHT GENIE I, 64K / 
DISK KURT WAGNER, 
VIEHTRIFFTSTR. 77 
6725 HEILIGENSTEIN 

Colour Genie + Software 
günstig zu verkaufen (1 Jahr 
alt) 09431/61916 

Suche COLOUR GENIE 

Software. Dittrich, Schnee- 
bergstr. 6, 8660 Münchberg 

Genie I 16K + div. Pro- 
gramme (Sargon) VB 700,- 
Tel. 02461/3693 

COLOUR GENIE I I 
PROGRAMMTAUSCH, 
UDO LEMBKE 2210 ITZE- 
HOE 2 HEIDEWEG 6 

C. G. User sucht Erfah- 
rungsaustausch W. Pilger 
6200 Wiesbaden, Weissen- 
burgstr. 12, Tel.: 06121/ 
403468 






Suche Tauschpartner für 
VG-Prog. (64K, Cassette, 
Disk). G. Dreyer, Am Spei- 
ergarten 8, 6200 Wiesbaden 

CG-User sucht Tauschpart- 
ner. A. Becker, Zur Stein- 
beck 34, 5620 Velbert 1 

Verkaufe Genie I, Level IV, 
64K RAM mit Drucker- 
Interface, Software und Li- 
teratur, Preis 800,-, Tel. 
0241/173394 

Colour-Genie-Kontakte 
W. Schwab, Heckenweg 19, 
5205 St. Augustin, 02241/ 
25986 

C.G. Programmtausch über 
100 Prog. Liste an H. Lin- 
denberg, Heerstraße 48, 
4018 Langenfeld 

Mathematikprogramme für 
CG ab 5,- DM netto von 
S. Vinzent, Pfr-Theis-Str. 1, 
6605 Friedrichsthal 

TRS-80 Pgm.-Tauschliste an 
W. Nimzik Himmelgeister 19 
4047 Dormagen 5 

COLOUR-GENIE: Spitzen- 
Softw., Full-Screen-Editor 
(wie CBM), Panzerkampf, 
EACA-komp. Joys, FX-702 
P: Schach, Tuningkit, Son- 
derzeichen; Liste 50 Pf. bei 
H. Czech, Kölner-6, 509 
Lev.-3 

Weitere Kleinanzeigen Seite 28 
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TRS-80 / Genie / Colour-Genie 



— 

SEDIT DM 39.— 

komlortaolor Bildschirmeditor, voll« Cursor- 
stouerung - Bildschirmkontrolto einfach« 
Einfügen - Löschen v. Zeichen 

’x 

COPBIT DM 39.— 

Kccierprogramm. Kopiert praktisch alle Co- 
lour-GOhie-Kasseiten. Auch geschützte For- 
mate. z. B.; Preloader/ßaudratoumsch. 

s 

? - * 

COLBAS DM 59.- 

Umfangreiche Basktonveitorung, MERGE, 
Disk-Basic -Funktlonon. RESTORE N. Varia- 
blensuche, Usbngformatioref, Packer usw. 
auch kombiniort mit SEDTT für nur OM 89.-! 

Ähnlich für TRS-83/Genie mi! Ronumberl 

? ' 

SBUG / CBUG 

Monitor, Disassombler und Trace. Komforta- 
blor Monitor mit Disassembler und progr. 
Trace mit Single Step durch RAM. ROM und 
DOS. SBUG tür TRS-80'Genie DM 139.-/ 
CBUQ für Colour DM 99.-. CBUG liest auch 
TRS-80- und Genie-KasseTtonl 
L 

Aue Programme mit ausführlicher, deutscher Anleitung. Proisc inkl 14% MwSl SBUQ/SEDIT 
auf Disk 1 10.-. Fordern So Info und Hardwarcpreisliste an! Hündleranfragon erwünscht! 

Luidger Röckrath Noppiusstr. 19. 5t00 Aachen, Telefon: (02 41)349 62 
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SYNTHESIZER 


Als Cotour Genie Anwender wis- 
sen Sie natürlich, daß im Colour 
Genie ein PSG (Programmierbarer 
Sound Generator) sitzt, mit dessen 
Hilfe Sie komplexe Töne und Ge- 
räusche erzeugen können. 

Wir haben mit Hilfe des PSG ein 
Synthesizer-Programm entwickelt, 
mit dem man ganz brauchbare 
Dinge tun kann. Um den Nach- 
teil des Musizierens auf der Com- 
putertastatur auszuschalten, wur- 
de gleichzeitig ein Keyboard ent- 
wickelt, auf der sich vernünftig 
spielen lässt. Deshalb gliedert sich 
dieser Artikel auch in zwei Teile. 
Der Erste beschreibt den Anschluß 
der Tastatur, der Zweite das ei- 
gentliche Synthesizer-Programm. 

Anschluß der Tastatur 
Mit dem PSG kann man ja nicht 
nur tönen, sondern auch steuern, 
und zwar den Paralellport. Und 
genau an diesen haben wir die Ta- 
statur auch angeschlossen. Wir ha- 
ben uns dabei mit acht Tasten be- 
gnügt, was natürlich den Nach- 
teil hat, daß man nur in C-Dur 
spielen kann, und das keine Halb- 
töne (z. B. Fis usw.) spielbar sind. 
Man kann dem aber Abhelfen, 
wenn man seine Tastatur nicht 
nur über einen Port, sondern 
über zwei laufen läßt. Man kann 
dann acht verschiedene Zustände 
über Port A abfragen, diese mit 
einem Zustand von Port B ver- 
knüpfen, und hat auf diese Weise 
die Möglichkeit, schon 256 ver- 
schiedene Tasten abzufragen. Wem 
das immer noch nicht langt, der 
kann ja die Zustände von Port 
A und Port B als 16 stellige Du- 
alzahl ansehen, woraufhin er dann 
65536 verschiedene Tasten abfra- 
gen kann. Das sollte an und für 
sich genügen. 

Ich möchte in diesem Zusam- 
menhang auch gleich erwähnen, 
daß dieser Artikel nicht für An- 
fänger gedacht ist ! 

Ein Anfänger sollte sich höch- 
stens darauf beschränken, das 
Programm abzutippen, und die 
Tastatur wie beschrieben anzu- 


schliessen, aber keine Änderungen 
vornehmen. Denn gerade bei Port- 
steuerungen mit dem PSG passiert 
es schonmal, daß derselbe dabei 
,, stirbt", weil er etwas falsch ange- 
schlossen wurde. 

Also wir sind folgendermaßen 
vorgegangen : 

Wir haben uns acht Digitaster ge- 
nommen, von denen jeder eine 
Leitung des Port 8 gegen Ground 
schaltet, wenn er gedrückt wird. 
Wenn man die Taster so wie in 
Bild 1 anschließt, kann nichts 
passieren, die einzige Gefahren- 
quelle ist, daß man aus Verse- 
hen, anstelle von Ground (Pin 20) 
+ 12 V (Pin 19) erwischen könnte. 
Davor sollte man sich hüten! 
Auch sollte man nicht anstelle 
von B6, + 5 V nehmen ! 

Der mechanische Aufbau gestal- 
tet sich wie folgt. Entweder man 
nimmt eine richtige Orgeltastatur 
(dann sollte man aber alle Tasten 
abfragen!) oder man nimmt, wie 
wir, Digitaster. Diese lassen sich 
bequem auf eine Lochrasterplatine 
löten. Die Verbindungen kann 
man leicht fädeln (Wire Wrap 
nennt das wohl der Fachmann). 
Wenn man 20 Lötnägel schön in 
einer Reihe auflötet, hat man so- 
gar einen Stecker, den man per 
Flachbandkabel mit dem Port ver- 
binden kann. Wer dieses Kabel 
dann natürlich beim aufstecken 
verdreht, ist es selber schuld . . . 

Das Programm 

Zum Programm ist eigentlich nicht 
soviel zu sagen, nur, das vorlie- 
gende Programm ist zwar in Ba- 
sic geschrieben, aber es wurde zum 
compilieren gemacht! Die Basic 
Version ist einfach zu langsam, 
um ein Lied zu spielen. 

Wenn Sie keinen Compiler ha- 
ben, oder Ihnen das Tippen zu- 
viel Arbeit ist, können Sie die 
compilierte Version beim Verlag 
bestellen, DM 49,- auf Cassette, 
DM 59,- auf Diskette. 

Jetzt aber zur Bedienung des 
Synthesizers! Zuerst einmal eine 
Zahl. Sie haben mit diesem Pro- 


gramm rund 845.000.000.000 ver- 
schiedene Klangvariationen! 

Das sind in Worten 845 Milli- 
arden verschiedene Klänge. Und 
wie Sie die in den Griff bekom- 
men, verrate ich Ihnen jetzt: 

Nach dem Laden und Starten 
des Programmes, bekommen Sie 
eine Übersicht, welche Funktio- 
nen zur Zeit gerade aktiv sind. 
Diese Funktionen können Sie nun 
alle verändern, und daraus resul- 
tiert die fantastische Klangvielfalt. 
In der ersten Zeile steht Tonaus- 
gabe auf Kanal A. Sie haben ins- 
gesamt drei Kanäle zur Verfü- 
gung, nämlich A, B und C. Diese 
Kanäle können Sie mit den Ta- 
sten 1 bis 7 aktivieren, damit 
sollten Sie mal etwas rumprobie- 
ren, um herauszufinden, mit wel- 
cher Zahl die verschiedenen Kanä- 
le aktiv werden. Mit der Taste 8 
schalten Sie alle Kanäle aus. 

In der nächsten Zeile steht 
Rauschen auf Kanal. Hier kön- 
nen Sie auf jedem der drei Kanä- 
le ein Rauschen einschalten, be- 
nutzen Sie dazu die Ziffern 3 bis 
9, wobei Sie gleichzeitig Shift 
gedrückt halten. Mit dem Doppel- 
punkt schalten Sie das Rauschen 
auf allen Kanälen aus. 

Danach (die nächsten drei Zei- 
len) wird Ihnen die Oktave ange- 
zeigt, mit der der jeweilige Kanal 
bespielt wird. Das können Sie für 
jeden Kanal getrennt einstellen, 
wobei die Oktaven von 1 bis 6 
reichen. Benutzen Sie folgende Ta- 
sten : 

A = Kanal A plus eine Oktave 
a = Kanal A minus eine Oktave 
B = Kanal B plus eine Oktave 
b = Kanal B minus eine Oktave 
C = Kanal C plus eine Oktave 
c = Kanal C minus eine Oktave 
Töne kommen aber auf dem je- 
weiligen Kanal nur, wenn er mit 
einer der Tasten 1 bis 7 akti- 
viert wurde! 

In der nächsten Zeile wird 
Ihnen die momentane Rausch- 
frequenz angezeigt. Diese ändern 
Sie mit der Taste R. Und zwar 
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bedeutet R plus 1 und r minus 1. 

Danch sehen Sie die momentan 
eingestellt Hüllkurve. Diese schal- 
ten Sie mit der Taste 0. Hier ha- 
ben Sie acht verschiedene Hüll- 
kurven, die endlos fortgeschaltet 
werden, d. h., wenn Sie nach der 
Achten mit 0 weiterschalten, 
kommt wieder die Erste. 

In der folgenden Zeile sehen 
Sie die Geschwindigkeit, mit der 
die Hüllkurve erzeugt wird. Diese 
steuern Sie mit der Hochpfeil- 
taste und der Tiefpfeiltaste. Pfeil 
nach oben bedeutet langsamer, 
Pfeil nach unten bedeutet schnel- 
ler. Diese Tasten haben eine Wie- 
derholfunktion, so daß sie solange 
wirksam sind, wie sie gedrückt 
werden. Diese Veränderung der 
Geschwindigkeit wird aber aus 
Tempogründen nicht ständig ange- 
zeigt, sondern man sieht sie erst 
nach Druck auf irgendeine andere 
Taste. 

In der nächsten Zeile steht 
HOLD = AUS. Hold aus bedeu- 


tet, daß ein Ton nur solange zu 
hören ist, solange Sie die ent- 
sprechende Taste gedrückt hal- 
ten. Hold an bedeutet, daß Sie 
die Taste nur kurz antippen, und 
der Ton solange gehalten wird, 
bis Sie irgendeine andere Taste 
drücken. Sie schalten die Hold- 
Funktion mit H ein und mit h 
aus. 

Die letzten drei Zeilen schließ- 
lich zeigen Ihnen die Lautstärke 
der drei Kanäle A, B und C an. 
Das können Zahlen von 1 bis 16 
sein. 1 ist leise und wird bis 15 
immer lauter, 16 bedeutet, daß 
der entsprechende Kanal über die 
gewählte Hüllkurve geleitet wird. 
Sie können die Werte mit folgen- 
den Tasten beeinflussen: 

Q = Kanal A lauter 
q = Kanal A leiser 
W = Kanal B lauter 
w = Kanal B leiser 
E = Kanal C lauter 
e = Kanal C leiser 

So, das waren die Fi 


des Synthesizers. Übrigens: Klein- 
buchstaben bekommt man beim 
Colour Genie dadurch, daß man 
Shift und den Großbuchstaben ge- 
meinsam verwendet. 

Jetzt noch ein paar interes- 
sante Klänge, die Sie einmal ein- 
stellen sollten. 

Klang 1 

Tonausgabe: Kanal A, B und C 
Rauschen auf Kanal B 
Hold einschalten 
Volume B = 16 

Klang 2 

Tonausgabe: Kanal A, B und C 
Hüllkurve Geschw. ca 1000 
Volume A : 16 
Volume B : 16 
Volume C: 12 

Klang 3 

Tonausgabe: Kanal A und B 
Rauschen auf Kanal C 
Rauschwert 1 

Hüllkurve Geschw. ca. 780 
Volume A: 16 
Volume B: 15 
Volume C : 16 
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Paralellport 


: CLS 

2 PRINT" *** ******** ***** ******* ***************** " : PRINT 

3 PRINT " SYNTHESIZER" 

4 PRINT: PRINT: PRINT " ******* ********* ********* ***************” 

5 PRINT: PRINT: PRINT" (C) bv GENIE DATA. 1984" 

ä PRINT ©920. “ Taste tippen" 

7 A$=INKEY$: IFA$=" "THEN7 
3 2=1 

9 A=1 :B=1:C=7:D=6 

10 PLAYd.A.B. 15) sPLAY(2,D.D, 15) 





Das Wersi-OMS-System "macht's mög- 


Das WERSI-KEYBOARD 
- der Schlüssel zu Ihrem Computer 


lieh". Durch Volldigital-Technik wird 
die Verbindung mit dem Computer 
möglich. Start frei für die Anwendungen 
der Zukunft. 


Sie besitzen einen Homecomputer oder ein anderes Klein- 
Rechnersystem ? Und schon lange haben Sie sich damit 
beschäftigt, nunmehr auch Musik mit Ihrem Computer zu 
machen ? Bislang stand Ihnen aber nur die normale Tastatur 
des Rechners zur Verfügung ? Dann haben wir jetzt die 
richtige Idee für Sie: Mit dem Wersi-Keyboard, damit das 
Musizieren auch so richtig Spaß macht ! 

Wir als Orgelhersteller wurden schon oft nach einer ent- 
sprechenden Tastatur befragt. Mit dem Wersi-Computer- 
Keyboard bieten wir Ihnen nun in einem soliden, form- 
schön gestalteten Gehäuse ein 5-Oktaven-Manual mit 61 
Tasten — von C bis C - mit computergerechter 8x8 
Matrixabfrage an. 


Wo ra-* ET BOARD als xsoaJo 

fUr »odon Klowcwputor 


Uno« 

Broito 

Hohe 

Umfang 


B3cm 
22 cm 
15 cm 

$ Oktaven C bu C ■ 
61 Tuton 
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- Schnjitaolio 

- Programm zur Tcrwrwugujvg 

- Programm zur Tnaaturotfrago 


Keyboard 

rtcl Anschluß kabel 
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Die ALPHA DX 300 - das Superding 


Auslosung MairuaWraOO 8 « 8 


An*:hJ-ü Stock or l&poitg 
(0 2oJon/8 SpaJi 


lion) 


DM 295 r 


- das Orchester, das sich per Computer steuern läßt 


Mit der ALPHA DX 300 verfügen Sie über eines der außergewöhnlichsten Orchester für zuhause oder das Studio, ein Keyboard 
oder Synthesizer für die Bühne und vieles andere mehr. Die Zukunft ist Wirklichkeit. 

Die ALPHA DX 300 ist "lernfähig", d. h. sie kann neue Programme, Klangfarben etc. jederzeit ändern, löschen oder auf- 
nehmen. Diese Dimension ist neu und vorteilhaft, wenn die ursprünglich 
einprogrammierten Instrumente vielleicht doch einmal in Vergessenheit 
geraten sollten. 

Die ALPHA DX 300 verfügt über die internationale Standard-Schnitt- 
stelle RS 232; hieran läßt sich ein "Apple", ein "Commodore",- "Sirius" 
oder andere Home-Computer anschließen. Die Software für Ihren Com- 


puter schreiben Sie entweder selbst oder beziehen unsere Software-Pakete^ 
für Ihren Rechner. 


Der Anschluß des Home-Computers eröffnet Ihnen das breite Spek- S 
trum der Variationsmöglichkeiten, Ihrer ALPHA DX 300 a/ .i 

/»/ 


neue Sounds, neue Presetsusw. "beizubringen". Umge- 


kehrt läßt sich auf dem Home-Computer (falls dieser 
dafür technisch ausgelegt ist) tabellarisch 
oder grafisch der "Inhalt" Ihrer Orgel 
abbilden z. B. die gespielten Noten 
oder Registrierinhalte. 


Betteilcoupon bitte einsenden an: 


Wersi Orgel- und Piano-Bausatze 

Industriestraße 5401 Halsenbach 
Ttelelon (06747) 7131 


„vP 

/o 


V 


Durch die Kombination von Computer 
und Musikinstrument — wie nur Wersi 
als "Made in Germany" bietet - er- 
öffnen sich dem Computer-Anwender 
bislang ungeahnte, faszinierende Soft- 
ware-Bereiche. Der Musikfreund gewinnt 
neue Dimensionen in Gestaltungsviel- 
falt, Klangschöpfung, Komposition und 
Interpretation. 
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MUSIK + COMPUTER 


Kreative Freizeit - problemloser Selbstbau 

- faszinierende Möglichkeiten 
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F0RI= 1T0500: NEXTI 

B=B+1: IFB=BTHENB=1: A=A+1: IFA=6THENG0TG15 
C=C+1 : IFC=BTHENC=1 : D=D-1 
GOTO 10 

Z=Z+1 : IFZ<5THENG0TD9 


PLAYd. 1,0. 15) ; PLAY (2, 1,0, 15) 

CLS 

0=3 : P=4: 0=5: R=1 : S=0: U=B: V=100: W~ 15: A=Q : C=15; D=15 : E=1 5 
GDBUB36 

Y 1 =Y : G0SUB75 : IFY 1=YTHENG0T027 
IFY=8THENPLAY (1.0+1.1,15) 

IFY=8THENPLAY (2. F'+ 1 , 1, 15) 

IFY=8THENPLAY (3. Q+l , 1. 15) 

IFYOBTHENF'LAYd .Q.Y, 15) 

IFY< >8THENPLAY (2.P.Y. 15) 

I F Y< >BTHENPL A Y ( 3 . Q , Y , 15) 

G0SUB124 
A*= INKEY* 

IFA*="/ “THENEND 
IFA*< >•■ " THENG0SUB88 
A*= INKEY* 

IFF'EEK (16444) =BTHENV=V+1 : IFV=255THENV=0: W=W+1 

I FPEEK (16444)= 1 6THENV=V- 1 : IF V= 1 THENV=255 : W=W- 1 

SOUND 1 1 . V: SOUND 12, M 

G0TO20 

CLS 

PRINT" 3YNTHES1 ZER" 

PRINT" ****#**********#*****#******************" 

PRINT"Tonausqabe au-f Kanal: 

IFR=OTHENPRINT 
D1=R: G0SUB66 

PRINT "Rauschen auf Kanal: ": 

D1=S: G0SUB66 


PRINT: PRINT"0ktave 1, Kanal A =" ;0 
PR INT "Oktave 2. Kanal B =";P 
PR INT" Oktave 3. Kanal C =";Q 
PRINT: PRINT"Rauschwert =";T 
PRINT 


PRINT "Huell kurve 
I FU=OTHENPR I NT " N* 
I FU=4THENFR I NT " , 


IFU=BTHENPRINT"M\N fO' 

I FU= 1 OTHENPR I NT" 

I FU= 1 1 THENPR I NT " K ( 11 

IFU=12THENPRINTV\ AA /V 1 

IFU=13THENPRINT"/ 11 

I FU= 1 4THENPR I NT 
PRINT"Huel 1 kurve Geschw. " 
PRINT 

I F A= 1 THENPR I NT " HOLD = AN" 
IFA=0THENPRINT "HOLD = AUS" 
PRINT : PRINT" Vol ume A =";C 
F'RINT"Volume B =";D 
PR INT "Volume C =" ;E 


RETURN 

IFQ1 =0THENFRINT 
I FQ 1 = 1 THENPR I NT " A " 

I FQ 1 =2THENF‘R I NT " B " 

I FQ 1 =3THENPR I NT " A B" 


256*W+V 
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70 I FQ1 =4THENPRINT"C" 

71 I FQ 1 =5THENPR I NT " A C" 

72 IFQ1 =6THENPRINT"B C" 

73 I FQ 1 =7THENPR I NT " A B C" 

7 4 RETURN 

75 DUT24B. 15 

76 X 1 =3 NP (249 ) 

77 Xl=Xl-255: X1=X1*-1 

78 I FX 1 = 1 THENY= 1 ' ■, 

79 I FX 1 =2THENY=2 X 

30 IFX1=4THENY=3 

31 IFX1=BTHENY=4 

32 IFX1=16THENY=5 

33 I FX 1 =32THENY=6 

34 I F X 1 =64THENY=7 
85 I FX 1 = 12BTHENY =8 

36 IFA=OTHEN I FX 1 =OTHENY=0 

37 RETURN 

38 I F A$= " H " THENA= 1 
•39 IFA*="h"THENA=0 

70 I FA* = " A" THENIFOC 5THEND=0+ 1 

71 IFA$= ,, a"THENIF0>lTHEN0=0-l 

72 IFA$="B" THEN I FP< 5THENP=F+ 1 

73 I FA*= " b " THEN I FP > 1 THENF'=P- 1 

74 IFA$="C" THEN I FQ< 5THENQ=Q+ 1 

75 IFA$="c "THENIFQ>1THENQ=Q-1 
96 IFA*= M 1 "THENR=1 

77 I FA$=" 2"THENR=2 

78 1FA$="3"THENR=3 

79 IFA$=" 4" THENR=4 

100 IFA$="5 "THENR=5 

101 I FA$="6 "THENR=6 

102 IFA$="7"THENR=7 

103 I FA$=" # "THENS= 1 

104 IFA$="$"THENS=2 

105 IFA$="7."THENS=3 

106 I FA$="&"THENS=4 

107 IFA*=" •' "THENS=5 

108 IFA$=" ( "THENS=6 

109 IFA*=") ‘'THENS=7 

110 I FA$="B"THENR=0 

111 1FA*=": "THENS=0 

1 12 I FA$= "R "THEN I FT < 30THENT «=T+ 1 
1 13 IFA$="r "THENIFT>1THENT=T-1 

1 14 IFA$="Q"THENIFC< 16THENC=C+1 : IFC=16THENS0UND1 1 . V: S0UND1 2, W: S0UND13, U 

115 I FA$= " a " THEN I FC > 1 THENC=C- 1 

116 I FA*= " W " THEN IFD< 1 6THEND=D+ 1 : I FD= 1 6THENS0UND 1 1 , V ! SOUND 1 2 . W : SOUND 1 3 , U 

117 I FAS= ’'w"THEN J FD>1 THEND=D- 1 

11B I FA*= " E "THEN I FE< 1 6THENE=E+ 1 : I FE= 1 6THENS0UND 1 1 . V : SOUND 1 2 , W : SOUND 1 3 , U 
1 19 I FA*="e"THENIFE>2THENE=E-l 

120 I FA$= " 0 " THENREADU : I FU=99THENREST0RE : READU : SOUND 1 3 , U : ELSESOUND 1 3 , U 

121 50SUB36 

122 A$=" " 

123 RETURN 

1 24 I FY< >OTHENSDUNDB , CELSESOUNDB, 0 

1 25 I FY< >0THENS0UND9 , DELSES0UND9 , O 

126 I FY< >OTHENSOUND 10, EELSES0UND10, 0 

127 V 1=63— R 

1 28 C1=S 

129 IFS>4THENV1=V1— 32: S=S-4 


130 IFS>2THENVl=Vl-16:S=S-2 

131 I FS > 1 THEN V 1 =V 1 -B : S=S- 1 

132 S=C 1 : S0UND7 , V 1 

133 S0UND6, T 

134 RETURN 

135 DATA0«4,B, 10, 11, 12, 13, 14,99 









PREIS AUF DISKETTE NUR DM 66 


der schnellste Uberschall-Jäger der Erde ! 


BESTELLUNGEN | 


V O R T E X ein SUPER-ACTION-SPIEL vergleichbar mit Astray und Helikopter 

Saturnring * Blaue Ufos * Bomben, Flattermänner, V-Jäger, Bordwaffen, Spinnenschiff 

PREIS AUF DISKETTE NUR DM 56,-. N - U - - - 


BESTELLUNGEN 
AN oC 

. , a. woe® 


c °^SV^ ßü \ v 

^ -vo\.°® ©o' e \ 


Dieser P A C B O Y macht dem "Alten” in allen Beziehungen was vor. Es ist eben 
wie der Name schon sagt ein PacBOY. Er ist schnell und fix auf den Beinen. Zum 
Schluß mit unsichtbarem Labyrinth. Ein echtes SUPER-SPIEL. 


PREIS NUR DM 


PREIS FÜR SPIEL AUF DISKETTE NUR DM 56. 








STEIGEN SIE IN IHREN HELIKOPTER! Lassen Sie sich von dem faszinierenden Geräusch des Motors Ihrer Ma- 
schine begeistern! Es geht durch die Lüfte über Landschaften die flach sind, über rauhes Gelände und Berge. Ausge- 
rüstet ist Ihr Helikopter mit den besten Waffen {Sie werden sehr überrascht seinl). Wenn Sie Ihre Kanonen und Bom- 
ben treffsicher einsetzen, dann haben Sie die Möglichkeit unterwegs zu tanken. Sie können waagerecht, senkrecht 
und auch schräg fliegen. Es ist einfach nervenzerfetzend I Dann geht der Flug weiter durch eine lange Felsengrotte 
und Berglandschaften zu einer Stadt. Unterwegs können Sie die in Not geratenen Menschen retten, bei guten fliege- 
rischem Können. Die Menschen winken Ihnen zu. Vorsicht vor den Feinden, die auch nicht schlecht schießen, die 
Grafik und die abwechselnde Farbenpracht wird Sie begeistern. Dann kommt nach längerem Flug und weiteren inte- 
ressanten Landschaften ein künstlicher Tunnel. Bis Sie dann nach acht Spielstufen den weißen Elefanten der Maha- 
rani sichten, den Sie ganz niedrig überfliegen müssen. Sollten Sie dieses Ziel erreichen, dann erhalten Sie einen Son- 
derbonus von 10.000 Punkten. Das Spiel ist eine einzige Nervenanspannung und großes Können muß bewiesen wer- 
den denn sonst sehen Sie den weißen Elefanten nie I Dieses Spiel ist echt seine Dollars wert und bestimmt noch etwas 
mehr. 



COLOUR GENIE 


-PREIS:- 
NUR 
DM 49,— 


Die brandheiße 
DONKEY KONG 
Version 

Realisation und 
Special-Effects: 
T. M. BINZINGER 


to versch. Spiel-Szenen, ganz tolle Grafik, Top Sound! 
GORILLA: ln Multi-Colour und HÜBI-Vision 
GORILLA: Er sollte auf Ihrem Bildschirm sein! 

Ein Superspiel, was Ihnen immer wieder große 
Freude bereitet und fasziniert! 


Heinz Hübben 
Abt. Software-Verlag 
Mühlbachstraße 2 
D-5429 Marienfels/Taunus 







28 GENIE DIU -Einkaufsführer 



ST AUeUSTIN 


TROMMESCHLAGER 
COMPUTER GMBH 
ST. AUGUSTIN 

POSTFACH 2105 
5205 ST. AUGUSTIN 2 
TEL. 02241-28071 


Ihr n/vsrtlssJger Pirtnw lOr CompuUnysUm» 

cc Computer Studio GmbH 

Softwiro + Kirtfwan + Barauw 
für TRS BO» und Ganls-Computw 
Sarvtca-Elharcand 

Elisabethstraße 5 
4600 Dortmund 1 
Tel.; 02 31-52 8184 

IhiAnsMieteartner. Tx 822 631 CCCSd 
v. Sdänirisß 
Jan P. Stfretdo. 


KLEINANZEIGE 

GESCHÄFT 

UMFANGREICHE SOFT- 
WARE zu extrem niedrigen 
Preisen. Z. B. RPNL-Compiler 
DM 49,80, Textsystem DM 
39,80, Auftragsabwicklung und 
Dateiverwaltung DM 48,-, Da- 
tenverwaltungssystem in M BA- 
SIC oder PASCAL DM 48, - etc. 
etc. Katalog TG 9 gegen Frei- 
umschlag. Luther-Verlag, Post- 
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TELEX 889702 






AACHEN 



•TRS 60 Isl eirvgetraoenes Warermten Oer Tandy Corp. 


♦crt 


OBERHAUSEN 


1§SS 



SCHMIDTKE 

electronic 

GENIE -Fachhändler 

Sandkaulstraße 84/86 
5100 AACHEN 
Tel. 0241-23217 


. T> a k n 
^ COMPUTER-SHOP * 
4200 Oberhausen 1 
Nohlstr. 29 

Telefon (0208) 853997 
Abakus (APPLE komp.) 


Gmchartszoltsn: 

Mo. - Fr. 10.00 Uhr bis 13.00 Uhr 

14.30 Uhr bis 18.30 Uhr 
Sa. 10.00 Uhr bis 14.00 Uhr 

Donnerstags geschlossen 



Oric 

EACA (Videogenie) 
SANYO (Laser) 


WUHELMSHAVEN 


MICRO 80 Computer 

GENIE CENTER 

mit eigener Service-Station 
Computor * Monitor« 
Typen rad u Matrixdrucker 
E D V Dli«»U*n-eiiX»U»n.T*b»3|»roaS>#i 
F,n«fljOuehh»M%«g • Lo»nHvcW»aiiv«g 
• SoUipiog»8tnm* 

1000 Berlin 12, 
Schlüterstraßa 16 
Telefon 030/3125913 


Microcomputer 
Softwareprodukte 
Peripheriegeräte u. Zubehör 
SHARP 
KAYPRO 
EACA -GENIE 
laodu OSBORNE 

Renk^i tbs-so» ATARI u.a. 

Computer EPSON 

Systeme BROTHER 

2940 Wilhelmshaven 
Bismarckstraße 150 



fach 1226, 6555 Sprendlingen. 


KLEINANZEIGEN 

PRIVAT 


Colour Genie doppelt so 
schnell! R. Szklenar, Rat- 
hausstr. 28, 7062 Ruders- 
berg 

COLOUR GENIE 32K 

SKAT, Maschinenprog., 
Grafik für 39,- bei Uwe 
KnÖfel, Saarbrückenstr. 171 
23 KIEL 1 

COLOUR GENIE COLOUR 
ENGLISCH, 2500 Vok. + 
Redewend., Abfrag. + Neu- 
eing. usw 32K erford. 39,- 
DM (Kass.) Kowalewski, 2 
Hamburg 73, Reinickendor- 
ferstr. 4a 

Grafik Adventures u.a.; Li- 
ste; Walkowiak, Zechen- 
bahn 13,435 Recklinghsn. 

All-Copy kopiert alle CG- 
Programmel DM 32.- Info: 
M. Pistorius, Kohlerstr. 12 
7600 Offenburg 0781/ 
38192 


GeschSftszelten: Mo-Fr 10-18. Sa 10-13 Uhr 


Telefon 04421 -12636 







FÜR DEN ANFÄNGER 



Uns erreichen immer wieder Brie- 
fe und Telefonanrufe, in denen 
uns Fragen gestellt werden, die 
kein alter Computerhase jemals 
stellen würde. Die Leute die da 
anrufen oder schreiben sind An- 
fänger auf dem Gebiet der Compu- 
terei, oder wie man auf gut neu- 
deutsch sagt: „Newcomer". 


Und an diese Zielgruppe der 
GENIE DATA wendet sich unsere 
Rubrik „Für den Anfänger", die 
ab dieser Ausgabe der GENIE 
DATA regelmäßig in jedem Heft 
zu finden sein wird. Und jetzt 
der Aufruf an alle Anfänger 
(das mußte ja kommen !) : 


ll 


.ANFÄNGERN 

ii^— ^ 


Wenn Sie irgendwas nicht wis- 
sen, oder nicht verstehen, schrei- 
ben Sie uns Ihre Probleme, wir 
werden sie in dieser Rubrik 15- 


Allerdings reicht es uns nicht, 
wenn Sie einfach schreiben : 

„Ich bekomme das Programm auf 
Seite XX nicht zum Laufen!" 

Sie müssen uns angeben, wel- 
chen Computer Siebenutzen (falls 
Drucker, welchen, falls Floppy, 
welche), und Sie müssen uns Ihr 
Problem so genau wie möglich 
schildern. So, jetzt genug der Vor- 
rede, jetzt fangen wir an ! 

Eine Vielzahl der Anfragen rich- 
tete sich auf die Eingabe von Hex- 
dumps, und das wollen wir jetzt 
auf der Stelle näher besprechen, 
und zwar am Beispiel des Colour 
Genie Programms Maze Man, also, 
schlagen Sie die GENIE DATA 
1/84 auf, Seite 26. 

Hier sehen Sie ein solches Hex- 
dump. Bevor wir uns aber jetzt an- 
sehen, wie man sowas eintippt, 
klären' wir zuerst einmal die Frage, 
wofür solche Hexdumps gut sind, 
und warum man sie in Zeitungen 
abdruckt. 
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Hexdumps sind die komprimier- 
te Widergabe von Assembler-Pro- 
grammen. Wenn wir uns die erste 
Zeile von Maze Man ansehen, 
sehen wir eine Zahl (4800) und 
danach elf mal zwei Nullen. 
Die Zahl 4800 gibt uns die Spei- 
cherstelle an, in der das erste Nul- 
lenpaar steht, also die ersten zwei 
Nullen stehen in der Speicher- 
stelle 4800 H. 

- Das H hinter 4800 bedeutet, 
daß es sich um eine Zahl im Hexa- 
dezimal-System handelt. - 

Die nächsten beiden Nullen stehen 
dann in Speicherstelle 4801 H usw. 

Wenn wir dasselbe in Assemb- 
lercode stehen hätten, würde das 
so aussehen : 

10 4800 NOP 

20 4801 NOP 

usw., bis 

110 480A NOP 

Daraus erkennen wir, wozu 
Hexdumps gut sind. Sie stellen 11 
Zeilen Assemblercode in nur einer 
Zeile dar. Man benötigt also we- 
niger Platz, es wäre ja auch sonst 
nicht möglich, ein Programm wie 
Maze Man abzudrucken, da es 
leicht eine ganze GENIE DATA 
füllen könnte! 


Jetzt wissen Sie schon, was ein 
Hexdump ist, wofür man es 
braucht, und ... 

Richtig, wie man es eingibt, 
wissen Sie ja noch nicht. 

Um ein Hexdump einzugeben, 
braucht man ein Monitor-Pro- 
gramm, z. B. den Colmon von 
TCS. Wenn Sie dieses Programm 
haben, können Sie ohne Beden- 
ken sofort weiterlesen. Wenn Sie 
ein anderes Monitor-Programm ha- 
ben, z. B. CGMon, können Sie 
auch weiterlesen, müssen sich aber 
die Bedienungs-Anleitung dieses 
Programms holen (wer suchet der 
findet!) und zum Verständnis die- 
ses Artikels mitverwenden. 

Wenn Sie noch kein Monitor- 
Programm haben, hören Sie jetzt 
auf zu lesen, gehen los und besor- 
gen sich eins, und dann dürfen 
Sie weiterlesen. 

Laden Sie jetzt als erstes Ihr 
Monitor-Programm, was wir ab 
jetzt nur noch Monitor nennen 
werden. 

Nach dem Laden und Starten 
des Monitors kann es losgehen. Sie 
brauchen die Start-, End- und 
Entry-Adresse des Programms, das 
Sie eingeben wollen. 
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Diese finden Sie auf Seite 27 
im letzten Absatz des Textes, hier 
sind sie aber auch noch einmal : 
Start: 4800 H 
End: 5660 H 
Entry: 4AE7H 

Diese drei Zahlen brauchen Sie 
zum Abspeichern des eingetippten 
Programmes auf Cassette, die erste 
Zahl (4800 H) brauchen Sie aber 
auch für den E-Befehl des Moni- 
tors (E = Eingabe). 

Tippen Sie jetzt: 

E4800 und Return. 

Es erscheint: 

4800 00 - 

Tippen Sie jetzt 00 und Return. 

Jetzt haben Sie bereits die er- 
sten zwei Nullen von Maze Man 
eingegeben. 

So verfahren Sie jetzt, bis Sie 
bei den Nullen auf Seite 32 sind. 
Tippen Sie aber nicht ständig Null, 
sondern schreiben Sie die Zahlen 
des Hexdumps ab ! 


Nach Eingabe der letzten bei- 
den Nullen tippen Sie Break. 
Ihr Programm steht jetzt.(Hoffent- 
lich ohne Fehler) im Speicher des 
Colour Genie. Sie sollten es 
jetzt auf Cassette speichern, damit 
Sie es nicht wieder neu eintippen 
müssen, wenn Sie der Spieltrieb 
erneut befällt. 

Tippen Sie: 

P4800 5660 4AE7 und Return 
Auf die Frage nach dem Namen 
tippen Sie: 

MAZE und Return 

Beachten Sie bitte, daß ein Name 
nur Sechs Zeichen lang sein darf, 
und daß das erste Zeichen ein 
Buchstabe sein muß! Deshalb las- 
sen wir das MAN vom Namen weg. 

Machen Sie Ihren Recorder be- 
reit zur Aufnahme und tippen Sie 
nochmal Return, woraufhin das 
Programm gespeichert wird. 

Um ganz sicher zu gehen, 
sollten Sie das Programm noch 
mals auf einer anderen Cassette 


speichern. Jetzt haben Sie Ihren 
Maze Man fertig ! 

Wenn Sie ihn jetzt wieder spie- 
len wollen, legen Sie einfach die 
selbst gemachte Cassette ein und 
tippen SYSTEM und Return und 
dann MAZE und Return. Nach 
dem Laden tippen Sie / und Re- 
turn, und das Spiel ist wieder da! 

Da aber niemand fehlerfrei ist, 
kann es Ihnen passieren, daß Sie 
sich irgendwo beim eingeben ver- 
tippen. Nehmen wir an, Sie schrei- 
ben hinter der Zahl 49EF statt CB 
irgendetwas anderes. Tippen Sie 
dann Break, um die Eingabe abzu- 
brechen, dann E49EF und Return. 
Jetzt können Sie den richtigen 
Wert (CB) eingeben und fort- 
fahren. 

Um sich mit der grundsätzlichen 
Arbeitsweise vertraut zu machen, 
können Sie ja auch zuerst einmal 
ein kürzeres Programm eingeben. 

Und nicht vergessen : 

Wenn Ihnen irgendetwas unklar 
ist, schreiben Sie uns! 



Bankselect 



Angeregt wurde ich zu dieser 
Schaltung durch ein von mir er- 
weitertes Programm für eine hoch- 
auflösende Grafik, das 32 K des 
RAM's als Grafikspeicher benö- 
tigt. 

Ohne Disk-System bleibt noch 
genug Speicher für das Basic übrig, 
aber mit Disk wird der Speicher 
rar. Was ist da näherliegend, als 
die brachliegenden 16 K RAM, 
überdeckt vom ROM, für die CPU 
sichtbar zu machen, und somit 
16 K zusätzlich für den Grafik- 
speicher zu gewinnen? 

Gedacht, Getan! — Aber erst 
etwas zur Theorie: 


Mit den Adressen A 14 und 
A 15 wird der 64 K Speicher in 
4 Blöcke (Bank) a 16 K aufgeteilt. 
Im untersten Block (0) liegen 
ROM, Tasten, Bildschirm und na- 
türlich der unbenutzte RAM-Be- 
reich. Der Block 1 beinhaltet 
hauptsächlich den Kommunikati- 
onsbereich, das Disksystem und 
teilweise Basiczeilen oder Maschi- 
nenprogramme. Die Blöcke 2 und 
3 speichern üblicherweise Basic- 
zeilen und/oder Maschinenpro- 
gramme sowie den Stack, Va- 
riablen usw. 

Der Block 3 soll nun als Grafik- 
speicher (oder ähnlich) verwendet 


werden, wobei Block 0 (aber nur 
der RAM-Teil) in den Bereich 
von Block 3 wahlweise eingeblen- 
det werden kann. 

Aufteilung der Blöcke 
Block Bereich (Hex.) A14 A15 

0 0000-3 FFF 0 0 

1 4000-7 FFF 1 0 

2 8000-BFFF 0 1 

3 C000-FFFF 1 1 

Durch die Schaltung wird er- 
möglicht die Adressen A14 und 
AI 5 bei Bedarf zu invertieren, 
aber nur, und das ist sehr wichtig, 
wenn beide Adressen auf High 
sind. Wäre diese Bedingung nicht 
erfüllt, könnte es Vorkommen, 






daß die CPU den ROM-Bereich 
oder Block 1 und 2 nicht mehr 
auslesen kann. Arbeitet nun die 
CPU in Block 3, so kann man ihr 
anstatt Biock 3, Block 0 servie- 
ren. Die CPU merkt dieses aber 
nicht, denn für sie bleibt es im- 
mer Block 3. 

Zur Schaltung: 

Sie besteht im Grunde nur aus 
zwei IC's, IC 2 und IC 3. IC 1 ist 
hier ein unbenutztes Flip-Flop aus 
der Schaltung zur Takterhöhung 
des Video Genies (nächste GENIE 
DATA). IC 2 prüft, ob beide 
Adressen auf High sind, und gibt 
diese Meldung zum IC 3 weiter, 
welches je nach Ansteuerung der 
Adressen AI 4 und AI 5 invertiert 
oder nicht. Durch IC 1 lassen sich 


die Bänke umschalten. Mit dem 
Schalter können die Bänke wahl- 
weise von Hand (Stellung a oder c) 
oder auch in Stellung b software- 
mäßig umgeschaltet werden. Mit 
den folgenden Basic Befehlen 
kann zwischen den Bänken umge- 
schaltet werden : 

OUT 254,0 = Bank 3 
OUT 254,32 = Bank 0 
Soll mit dem Bank-Select gear- 
beitet werden, so muß bei 
"READY" oder "MEM SIZE" 
bzw. "HIMEM" entweder 49151 
oder OBFFFH eingegeben werden. 
Bei nichtgebrauch arbeitet der 
Rechner wie üblich, egal welche 
Bank eingeschaltet ist. 

Der Einbau der IC's erfolgt am 
besten fliegend auf der CPU-Pla- 


tine an der freien Stelle für IC 26, 
wobei die IC's 2 und 3 huckepack 
aufgebaut werden. 

Die Modifikationen am Gerät 
sind minimal. Lediglich die Zulei- 
tungen zum IC Z24, Pin 13 und 
14 müssen aufgetrennt werden 
(auf der CPU-Platine). Danach 
kann die Schaltung nach dem 
Schaltplan angeschlossen werden. 

Mögliche Anwendungen sind, 
ausser als Grafikspeicher, daß Ein- 
und Ausblenden von Maschinen- 
programmen, z. B. ein Monitor 
oder Assembler, der nach dem Be- 
arbeiten des Programmteils nicht 
wieder neu geladen werden muß, 
einfaches Umschalten genügt. 







VIDEO-GENIE I 

Typ +Pin —Pin 

74LS74 Flip-Flop 14 7 

74LS00 NAND 14 7 

74LS86 EXOR 14 7 

Schalter 2x ein mit Mittelstellung aus 
Widerstände 1,5 K 
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A 14 (24/1 3) 
(Select-Signal) 
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A15 (24/14) 




Ans GStte 


Schalterfunktionen : 

a = Bereich ab C000 wird normal gelesen 
b = Bankselect softwaremäßig 
c = Bereich ab 0000-3FFF wird mit oberen 
1 6 K ausgetauscht. 






Abonnieren - Profitieren I 


Bei jeder Ausgabe drei Zeilen kostenlos inserieren! ! ! 
Also: Füllen Sie die eingeheftete Bestellkarte aus, und sichern Sie sich Ihr persön- 
liches GENIE DATA Abonnement I 
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SOFTWARE 


GENIE DATA 


mm 


mm 'ih 
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in letzter Zeit haben uns einige 
Briefe erreicht, in denen GENIE: 
DATA Leser nach einer lauffä- 
higen Textverarbeitung für Genie 
I, ii oder IH gefragt haben. 

Und, voiia, hier ist sie. 

Das Computersystem, das Sie zum 
Textstar ; brauchen, ist . entweder 
ein Genie l, If oder III, ein oder 
zwei Diskettenlaufwerke und ein; 
beliebiger Drucker, Wenn Sie über 
dieses Sortiment verfügen, können 
Sie sofort ios tippen. Für Genie Ul 
können wir Ihnen auch eine Dis- 
kette mit: Textstar, für 39,-- + Por- 
to, zusenden. 

. So, jetzt wollen wi r aber nicht 
mehr . lange drumherum reden, 
sondern loslegen I 


Wenn Sie sich den Programm-Aus- 
druck einmal ansehen, werden Sie 
feststellen, daß Textstar eigentlich 
garnicht so lang ist, deshalb hier 
einmal kurz vorweg, was Sie mit 
dem Programm alles machen kön- 
nen. 

1. Texte eingeben und redigieren 

2. Texte auf Disk speichern und 
wieder laden. Merge Funktion 
ist eingebaut, Sie können also 
auch Textbausteine Zusammen- 
hängen. 

3. Texte ausdrucken. (Block- 
und Flattersatz!) 

4. Das Programm bietet Zugriff 
auf verschiedene Drucker 
Funktionen. 

Textstar ist natürlich nicht so 
komfortabel, wie gekaufte Text- 
systeme, dafür aber sehr viel preis- 
werter ! 

Bevor ich Ihnen jetzt erklä- 
re, wie Sie mit Textstar am be- 
sten arbeiten, noch eine Bemer- 
kung zum Programm. In den Zei- 
len 73 bis 81 finden Sie ein Un- 
terprogramm, das Steuerzeichen 
für den Drucker in Strings ab- 


legt. Diese Methode wurde ge- 
wählt, um Textstar an alle Druk- 
ker anpassen zu können. Die hier 
vorliegende Version arbeitet mit 
dem Star DP 510. Wenn Sie einen 
anderen Drucker besitzen, sehen 
Sie in seiner Bedienungs-Anleitung 
nach, wie verschiedene Schriften 
erzeugt werden und ändern die 
Zeilen 73 bis 80 dann entspre- 
chend. 

Nachdem Sie Textstar einge- 
tippt und auf Diskette gesichert 
haben, kann es losgehen. Tippen 
Sie RUN! 

Textstar fragt Sie jetzt nach 
der Textbreite. Hier geben Sie 
eine Zahl zwischen 1 und 63 ein, 
die dann der Anzahl von Buchsta- 
ben pro Zeile entspricht. Wenn 
Sie hier nur Return tippen, wird 
die Breite 63 eingestellt. Die Zei- 
lenlänge wird Ihnen immer am 
oberen Bildschirmrand durch ein 
weißes Rechteck angezeigt. 

Nach dieser Eingabe befinden 
Sie sich im Schreibmodus. Hier 
können Sie folgende Befehle di- 
rekt eingeben. 

1 . ++list 

2. ++block 

3. ++druck 

4. ++edit 

5. +-+save 

6. ++!oad 

7. ++LÖSCHEN 

Jetzt aber zu den Befehlen im 
Einzelnen ! 

Text auflisten 
++list 

Wenn Sie eine Zeile beendet ha- 
ben, können Sie als nächste Zei- 
le ++list eingeben, woraufhin der 
komplette Text auf dem Bild- 
schirm, versehen mit Zeilennum- 
mern, aufgelistet wird. 

Wenn Ihnen das zu schnell 
geht, können Sie durch gleich- 
zeitiges Tippen von „Klammer- 


affe” und Shift den Computer 
stoppen. Um das Auflisten fort- 
zusetzen, tippen Sie irgendeine 
andere Taste. 

Blocksatz erstellen 
++block 

Dieser Befehl bewirkt, daß sämt- 
licher im Speicher befindlicher 
Text auf die maximale Zeilen- 
breite gesperrt wird. Sie können 
also hiermit Texte erstellen, die 
Links- und Rechts-Bündig ausge- 
druckt werden. Es ist aber nicht 
sinnvoll, wenn wirklich jede Zei- 
le auf Block gesperrt wird, da Sie 
sonst ja nie einen Absatz machen 
könn ten. Deshalb gibt es eine 
Möglichkeit, das Sperren in ein- 
zelnen Zeilen zu unterdrücken. 
Wenn Sie nämlich an das Ende ei- 
ner Zeile, die nicht gesperrt wer- 
den soll, ein +■ schreiben, bleibt 
diese Zeile wie sie ist. 

Beispiel : 

Das ist toll ! Wird gesperrt. 

Das ist toll ! *+ Wird nicht gesperrt 

Es gibt übrigens noch eine Aus- 
nahme. Wenn eine Zeile nur aus 
einem Wort besteht, wird sie auch 
nicht gesperrt. 

Der Block-Befehl kann beliebig 
oft angewandt werden, da Zeilen 
die schon die richtige Breite ha- 
ben, nicht mehr bearbeitet 
werden. Es ist übrigens sehr hilf- 
reich, wenn man ca. alle 10 Zei- 
len den Block-Befehl anwendet, 
weii man dann die Zeilenbreite 
besser überblicken kann. Das ist 
aber nicht notwendig. Sie kön- 
nen durchaus erst den ganzen Text 
eingeben, bevor Sie +block an- 
wenden. 

Text drucken 
+druck 

Nach Eingabe dieses Befehls wird 
der ganze Text, der sich momen- 
tan im Speicher befindet ge- 
druckt. 
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Text sichern 
+save 

Nach diesem Befehl fragt Sie 
Textstar nach dem Namen des zu 
sichernden Textes. Dabei sollte 
die Laufwerknummer mit angege- 
ben werden, so daß ein Name z. 
B. so aussieht: 

TEST/TXT :1 

Hierbei würde der Text unter dem 
Namen TEST/TXT auf Laufwerk 
1 gesichert. Zur Kontrolle wird 
während des Savens die aktuelle 
Zeile angezeigt. 

Text laden 
tload 

Funktioniert an sich genau wie 
der Save-Befehl, nur daß der Text 
von der Diskette geladen wird. 
Dabei wird ein eventuell noch im 
Speicher stehender Text über- 
schrieben. 

Texte verketten 
-M-merge 

Mit diesem Befehl können Sie an 
einen im Speicher befindlichen 
Text einen von der Diskette zu 
ladenden Text anhängen. 

Text löschen 
++LÖSCHEN 

Dieser Befehl muß zur Sicher- 
heit komplett in Großbuchstaben 
{Versalien sagt der Fachmann) 


eingegeben werden. Seine Funk- 
tion ist recht simpel, es löscht den 
kompletten Text im Speicher. 


Text editieren 
-»♦■+edit 

Dieser Befehl gibt Ihnen folgen- 
de Unterbefehle: 

L = Zeile löschen 
E = Zeile einfügen 
Z = Zeile editiern 
A = Auflisten 
Q = Zurück zur 
Texteingabe 

Sehen wir uns diese Befehle ein- 
mal der Reihe nach an, 

L — Zeile löschen 
Nach L werden Sie nach der Num- 
mer der zu löschenden Zeile ge- 
fragt. Diese Zeile wird ersatzlos 
aus dem im Speicher befindlichen 
Text herausgenommen. 

E - Zeile einfügen 
Nach E und der Eingabe der Zei- 
lennummer wird an dieser Steile 
eine Leerzeile eingefügt. 

Z — Zeile editieren 
Nach Z und der Zeilennummer 
können Sie diese Zeile neu ein- 
geben. 

A - Auflisten 
Siehe ++list. 


Q - Zurück 

Nach Q kommen Sie wieder zu- 
rück zur Texteingabe und kön- 
nen ganz normal an Ihrem Text 
weiterschreiben. 

Das Sie in der Texteingabe sind, 
sehen Sie übrigens an dem Cur- 
sor, der blinkend auf Ihren näch- 
sten Geistesblitz wartet. 

So, das waren die Funktionen 
von Textstar. Es wird natürlich 
wieder ein paar Leute geben, 
die den Editor kritisieren, denen 
möchte ich sagen : ,,Das Programm 
ist in Basic, es' gibt also keinen 

Grund, den Editor nicht zu ver- 
bessern!". 

Wir haben Textstar natürlich 
durch und durch auf Fehlerfrei- 
heit getestet (das Manuskript zu 
diesem Artikel wurde auch damit 
geschrieben !), aber Sie wissen ja : 
Den schlimmsten Fehler erkennt 
man immer, wenn es zu spät ist, 
und wenn tatsächlich kein Feh- 
ler da ist, dann muß sowieso ge- 
ändert werden ! 

Aus dem T agebuch eines 
leidgeprüften Programmierers. 

,1: Viel Spaß • . 1 


1 CLEARIOOOO; DIMTE* (500) : IN=1 

2 GDSUB71 

3 LI$ = " — 


4 CLS . / ^ 

5 PRINT" ********* *#*#*###****************M****************** ********** 
*" 

6 PRINT" GENIE DATA TEXTSTAR" 

7 PRI NT: PRINT" ************* ********** ****************** ********** 
******** 

8 PR1NT§960, "Zum Starten, Taste tippen."; 

9 IFINKEY*=“ " THEN9 

10 PRINT§960, ; INPUT"Textbrei te " ; TB 

11 IFTB=0THENTB=63 

12 IFTB>63THENGDT010 

13 CLS 

14 PRINT§TB,CHR*(191) 

15 LINEINPUTTE* (IN) 

16 POKETB+1 5360, 191 

17 IFTE* ( IN) ="##druck "THENGDSUB27 : TE* ( IN) ="":G0T015 
1B IFTE* ( IN) =" ##bl ock "THENG0SUB42: TE$ (IN) =" " : G0T015 

19 IFTE* (IN) ="##1 ist "THENF0RI = 1 TO IN— 1 : PR INTUS ING"###" ; 1; :PRINT" ";TE*(I 
) :NEXTI;PDKETB-*-15360, 191: TE* ( IN) =" ":G0TG15 

20 IFTE$ < IN) ="##LöSCHEN"THENIN=l : TE* ( I ) =" CLS: P0KETB+15360, 191 : GDT015 



21 IFTE* ( IN)="##edi t " THENGDSUB54: TE* ( IN) = " GOT015 

22 IFTE* <IN) ="##save"THENL INE INPUT" Name " ; NA* : QPEN"0" , 1 , NA$: F0RI=1T0IN- 
1 : PR I NT# 1 , TE* ( I ) : F'RINTTE* ( I ) : NEXTI : CLDSE1 : G0T015 

23 IFTE* ( IN) = "##1 oad " THENIN=1 : G0SUB67: G0T015 

24 IFTE* ( IN) ="##merge "THENG0SUB67 ; G0T015 

25 IN=1N+1 

26 G0T015 

27 F0RI=1T01N— 1 

2B IFTE* ( I ) = " # 1 " THENLPR INTDR* ( 1 ) ; .-NEXTI 

29 IFTE* ( I ) =" #2 "THENLPR INTDR* <2) ; s NEXTI 

30 IFTE* ( I ) =" #3 "THENLPR INTDR* (3 ) ; :NEXTI 

31 IFTE* (I ) ="#4"THENLPRINTDR* (4) ; : NEXTI 

32 IFTE* ( I ) = "#5‘‘THENLPRINTDR* (5) ; : NEXTI 

33 IFTE$(I)="#6"THENLPRINTDR*<6) NEXTI 

34 IFTE* ( I ) ='' #7 "THENLPR INTDR* (7 ) ; : NEXTI 

35 IFTE* ( I ) ="#8"THENLPRINTDR* (8) NEXTI 

36 1 FR I GHT* (TE* ( I ) , 1 ) =" #" THENLPRI NTLEFT * ( TE* CI > , LEN ( TE* ( I ) ) - 1 ) ; G0T038 

37 LPRINTTE* ( I ) 

3B NEXTI 

39 CLS 

40 F0RI=1T0IN-1:PRINTTE*(I) : NEXTI : POKETB+ 15360, 191 

41 RETURN 

42 CLS: PRINT s FÜRI-1T0IN-1 

43 S*=" " 

44 IFINSTRUE* CI) ,S*> =0THENG0T050 

45 IFRIGHT* (TE$(I) , 1) = " 4" THENG0T050 

46 I FLEN < TE* ( I ) ) =TBTHENG0T050 

47 RANDOM : PO=RND (TB) 

48 IFMI D* (TE* C I ) ,F'0, 1 ) =S*THENH1*=LEFT* 

( TE* ( I ) ) -PO ) : TE* ( I ) =H 1 *+ " " +H2* 

49 IFLENCTE* ( I) XTBTHENG0T047 

50 PRINTTE*(I) 

51 POKETB+1 5360 , 191 

52 NEXTI 

53 RETURN 

54 CLS 

55 PR I NT " ED I T-BEFEHLE " : PR I NTL I * 

56 PRINT, "L = Zeile löschen" 

57 PRINT, "E = Zeile einfugen" 

58 PRINT, "Z = Zeile editieren" 

59 PRINT, "A = Auf listen" 

60 PRINT, "O - Zurück zur Texteingabe" 

61 PRINT: PRINT: INPUT" Ihre Wahl"; WA* 

62 IFWA*= "q" ORWA*="Q" THENCLS: FORI = 1 TO IN— 1 : PRINTTE* < I ) : NEXT : POKETB+1 5360 
,191s RETURN 

63 IFWA*= : "a"ORWA*=" A"THENCLS: FORI =1 TO IN— 1 : PRINTUSING"###" ; I ; : PRINT" ";T 
E*(I) ; NEXTI.- POKETB+ 15360, 191: INPUT"Fertig, dann Return X X: G0T055 

64 IFWA*=”z "ORWA*="Z"THEN INPUT "Zei 1 en-Nummer" ; Z: PRINTTE* ( Z) : PRINT : PRINT 
"Neuer Text für Zeile"; Z: LI NE INPUTTES ( Z ) : G0TQ54 

65 IFWA*= " 1 " ORWA$=" L" THEN INPUT" Zei lennummer“; Z: I F Z >TBTHENG0T054 : ELSEFOR 
I=ZT0IN:TE*(I)=TE*CI+1) .-NEXTI; IN=IN-1 : WA*=" A" :G0T063 

66 lFWA*="e"GRWA* ::::,, E"THEN INPUT" Zei 1 ennummer" ; Z; IFZ< 1THENGQT054: ELSEFOR I 
= IN TOZSTEP- 1 : TE* ( I +1 ) =TE* ( I ) : NEXTI ; TE* (Z ) =" " : IN=IN+ 1 : WA*=" A" : GOT063 

67 LI NEINPUT " Name " ; NA*: OPEN" I " , 1 , NA* 

68 LI NEINPUT# 1, TE* (IN) ; PRINTTE* ( I N) ; IFNQTEOF < 1 ) THENIN=1N+ 1 : 60T068 

69 IN=IN+1 

70 CLOSEI -.RETURN 

71 7 Druckcodes für Star DP 510 


(I) ,P0) :H2*=RIGHT* (TE*<1) , LEN 


72 ; 

73 DR$(1)=CHR*(14) 

74 DR*(2)=CHR*(15) 

75 DR*(3)=CHR*<18) 

76 DR* ( 4) =CHR* ( 27 ) + "E " 

77 DR* (5) =CHR*<27) +"F" 

78 DR* ( 6 ) =CHR* < 27 ) + " 4 " 

79 DR* (7) =CHR* (27) + "5" 

BO DR* (B) =CHR* (27) +"R"+CHR* (2) 
31 RETURN 




.Sir: ■ 

... " f&jj : §:| 

DI' • 

XQR A 

OP addr 0674 




00 O 0 F 3 l | 
0001 : fiF 
O 002 . C 3 74 
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0009 C 3 00 40 
60 OB El 

O 00 C E 9 
000 D G 3 00 Ö 0 

0010 C 3 Ö 3 40 








0018 C 3 «6 40 * 4 P ade 

O 01 C 06 02 
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10 CLS 

20 PRINTS400, "Z-80 Disassembler" 

30 PRINT§610, "Designed by M. Kuhn" 

40 PRINT5815, "Copyright 1983" 

SO DIM Bi (255) , C$ (256) , D$ ( 125) , E$ (255) ,F$ (255) , G$ (255) «H$ (255) , A$ (5) *V*<35> ,S* (1 
6) , Ali ( 16) 

60 PRINT: PRINT: GOTO 1730 ^ 

70 REM PROGRAMM BENOETIGT ca 14200 BYTE 
80 REM UNGESTARTET UND ca 19565 BYTE 
90 REM GESTARTET 
100 REM 

110 REM - ■ -r.; \ 

120 REM 

130 IMPUT" Star tadr. dec.";S 

140 INPUT"£ndadr . dez."il 

150 PRIMT"Disas5embler arbeitet!" 

160 A=PEEK (S) 

170 B=A:GOSUB 1580: REM DEZ-HEX CGNV. 

180 GOSUB 1420: REM DEZ-HEX CONV. 4 
190 X$=RIGHT$ (A$ , 1 ) 

20O Yi=LEFT$ (A$, 1 ) 

210 IF A=0 THEN 410 
220 IF A$="CB" THEN 660 
230 IF A$="DD" THEN 700 
240 IFA$="ED"THEN1010 


Dieser Disassembier für Coiour Ge- 
nie beinhaltet den kompletten 
Z 80 Befehlssatz. Das Programm 
benötigt ca. 20 K RAM. und läuft 
deshalb nur mit der 16 : K Erwei- 
terung. Es wurden keine spe- 
ziellen Coiour Genie Befehle ver- 
wendet, deshalb sollte es auch auf 
anderen Genie Geräten und TRS 
80 Modellen einwandfrei laufen. 

Auf eine Eigenart des Pro- 
gramms möchte ich noch hin- 
weisen. Das Programm disassem- 
bliert bis Adresse 32767 einwand- 
frei. Ebenfalls arbeitet es einwand- 
frei ab Adresse - 32768 bis -1 
(FFF FH). Es läuft aber leider 
über die Adresse 8000 H nicht hin- 
weg. Bei Maschinenprogrammen, 
die über diesen Punkt hinaus- 
gehen, muß man das Programm 
zweimal starten. 


"C 3 00 40 4 P addr 40 Oß;/ 

r.Z 00 40 JP addr 4000 .. 


w 0005 : 


0020 C 3 09 40 : JP addr 4009 :.. 

0023 C 5 PUSH BC 





36 GENIE Hl SOFTWARE 


250 IFA$="FD"THEN1 120 

260 IFA* >64 AND A=<191THEN380 

270 IFA<64THEN430 

280 IFXi="2"THEN5B0 

290 I FX$= " 4 " THEN580 

300 IFXi= " 6 " THEN630 

310 IFXi="A''THEN580 

320 IFXt="C"THEN580 

330 I F X $= "E " THEN630 

340 IFA$="CD"THEN580 

350 I FAi= "DB " THEN630 

360 IFAi="C3"THEN580 

370 I FA$= " D3 " THEN630 

380 LPRINTStj 11 " i Ai, , Bi (B) 

390 S=S+1 

4O0 IFSHTHEN END ELSE GOTO 160 
410 LPRINTStj " "jAS.j'-NDP" 

420 GDTO390 

430 IFA=8THEN380 

440 IFX$="0"THEN630 

450 IFXi=" 1 "THEN580 

460 IFXi="6"THEN630 

470 IFX4="8 ,, THEN630 

480 IFX$= ,, E ,, THEN630 

490 IFYi="2"ORYi="3"THEN510 

5O0 GOTO380 

510 IFY$="2"THEN550 

520 I FX i= " 2 " THEN580 

530 I FX 4 = " A " THEN5S0 

540 GQTO380 

550 I F X $ = " 2 11 THEN580 

560 IFX$="A"THEN580 

570 G0T0380 

580 A$ ( 1 ) =A$: S=S+1 : A=PE£K (S) : GOSUB15B0 
590 Ai (2) =A$: S=S+1 : A=PEEK(S) : G0SUB1580 
600 Ai (3) =Ai 

610 lprints$; " " ; Ai ( l > ; " ";Ai (2) ; " ";Ai (3) ,Bi(B> : " ";A$<3) ;Ai(2> 
620 GOTO390 

630 Ai (1)=A$:S=S+1:A=PEEK(S) :GOSUB1580 
640 At(2)=At 

650 LPRINTSi; " " J A$ ( 1 ) j " ”;A$(2) ,Bt(B> 3 " " j Ai (2) :GOTO390 
660 Ai (1 ) =Ai : S=S+ 1 : A=PEEK ( S > : C=As GOSUB 1 580 
670 A$ (2) =A$ 

680 LPRINTStj " " ; Ai < 1 ) ; " "3 Ai (2) , Ci (C) 

690 GOTO390 

700 A$ (1 ) =Ai: S=S+1 : A=PEEK <S) : E=A: GDSUB1580 

710 Ai(2)=Ai 

720 I FA=203THEN890 

730 IFAi="21 "THEN940 

740 IFAi= "22 "THEN940 

750 IFAi="2A"THEN940 

760 IFAi="36"THEN940 

770 Wi=RIGHTi (Ai, 1 > 

780 Zi=LEFTt (Ai, 1 ) 

790 I FWi= " 9 " THEN990 
8O0 IFAi="23''THEN990 
810 IFAt="2B"THEN990 
820 IFAi="El "THEN990 
830 IFAt="E3''THEN990 

840 IFAi="E5"THEN990 . 
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850 S=S+1 : A=PEEK (S) : GOSUB1580 
860 AS (3) =A$ 

870 LPRINTSS; " " 5 AS < 1 ) ? " " 5 AS (2) ; " • " ? AS (3) , ES (E) 

880 GOTO390 

890 S=S+ 1 : A=PEEK ( S ) : GOSUB 1580 

90O AS ( 3 ) = AS : S=S+ 1 : A=PEEK ( S ) :GüSüB1580 

910 AS (4) =AS: G=A 

920 LPRINTSS;" ";AS(1);" ";AS(2);'' ";A$(3);" ";A$<41 ,G$(G> 
930 GOTO390 

940 S=S+1 : A=PEEK (S) : GOSUB 1580 

950 AS (3) =A$: S=S+1 : A=PEEK (S) :G0SUB1580 

960 AS (4) =AS 

970 LPRINTSS!" "jAStUj” ";A$<2>?" "JA* (3);“ " j AS (4) , ES (E) 
980 GDTÜ39G 

990 LPRINTSS?" ";A$(1);" "!AS(2) ,E$(E) 

10OO GOTQ390 

1010 AS < 1 ) =A$: S=S+1 : A=PEEK ( S ) : D= A-64 : GOSUB 1 580 
1020 AS (2)=AS: W$=RIGHTS (AS, 1 ) : 2S=LEFT$ (AS, 1) 

1030 I FWS= " 3 " THEN1 070 
1040 I FWS= " B " THEN 1070 
1050 LPRINTSS!" ";AS(1);" " ! AS (2) , DS (D) 

1060 GOTO390 

1070 S=S+1 : A=PEEK<S) i GOSUB 1589 

1080 AS (3) =A$: S=S+i : A=PEEK (S) : G0SUB1580 

1090 AS (4) =AS 

1100 LPRINTSS!" ";AS(1);" "!A*(2);" "I AS (3) 5 " "J AS (4) , D$ (D> 
1110 GOTO390 

1120 AS ( 1 ) =A$: S=S+1 : A=PEEK (S) : F=A; GOSUB1580 

1130 AS (2) =AS 

1140 IFA=203THEN1300 

1150 IFAS=" 21" THEN 1350 

1166 IFAS= "22" THEN 1350 

1170 IFAS="2A"THEN1350 

1180 IFAS="5F"THEN135Ö 

1 190 WS=RIGHTS (AS, 1 ) : Z$=LEFTS (AS, 1 ) 

1200 I FWS= " 9 "THEN 1 400 

1210 IFA$=" 23 "THEN 1400 

1220 IFA$="2B" THEN 1400 

1230 IFAS= "El "THEN 1400 

1246 I FAS= " E3" THEN 1 400 

1256 IFAS= "E5" THEN 1400 

1260 S=S+i : A=PEEK (S) : GOSUB1580' 

1270 AS <3)=AS 

1286 LPRINTSS?" " ? A$ (1 ) ! " "?A$(2)J" "jA*(3> ,FS(F) 

1290 GQTO390 

1300 S=S+ 1 : A=PEEK < S ) : GOSUB 1 580 

1310 AS (3> =AS: S=S+1 : A=PEEK (S) : H=A: GQSUB1580 

1326 AS (4) =AS 

1330 LPRINTSS; " ";A$<1);“ ";AS(2)5" ";A$<3);" " ; AS (4) , HS <H) 
1340 GOJO390 

1356 S=S+1 : A=PEEK <S) :G0SUB1586 

1366 AS (3) =AS:S=S+1 : A=PEEK (S) : GOSUB 1580 

1370 AS (4>=AS 

1380 LPRINTSS?" ";AS(l)i" ";AS(2)?" ";A$(3>!" "j AS (4) , FS <F> 
1390 G0T0390 

1400 LPRINTS$;AS(1);AS<2) ,F$(F) 

1410 GOTO390 




1420 RESTQRE:REM DEZ-HEX COW. 4 
1430 FORZ=0TÜ15 

1440 READSS(Z) 


SOFTWARE 


38 Mül 


1450 NEXTZ 

1460 DATAO, 1 , 2, 3,4, 5,6, 7, 8, 9, A, B, C, D, E,F 
1470 X=S 

14S0 IF XXOTHEN X=X+65536 
1490 S$="" 

1500 Y=X 

1510 Y1=FIX < Y/ 1 6 ) 

1520 Y2=Y-Y1*16 
1530 S$=S$ ( Y2) +S4 
1540 Y=Y1 

1550 IFY>0THEM1510 

1560 IFLEN(S$) <4THENS$="0"+S$: GOTO 1560 
1570 RETURN 

1580 RE5T0RE: REM DEZ-HEX CONV. 2 
1590 F0RZ=0TQ15 
160O READAi$ (Z) 

1610 NEXTZ 

1620 DATAÖ, 1,2,3,4,5,6,7,8,9,A,B,C,D,E,F 
1630 X=A 
1640 Al$=" " 

1650 Y=X 

1660 Y1=FIX (Y/16) 

1670 Y2=Y-Y1*16 
1680 A1$=A1$ (Y2)+Al$ 

1690 Y=Y1 

170O IFY>OTHEN1660 

1710 IFLEN (Al$) <2THENA1$="0"+Ai$: GOTÜ1710 

1720 A$=A1$: RETURN 

1730 FQR V=1T032:READV$ (V) :NEXT 

1740 F0RB=1T0255: READB$ (8) : NEXT 

1750 FORC=0TO255: READC$ (C) :NEXT 

1 760 FORD=0TO123: READD$ <D> : NEXT 

1770 F0RE=9TÜ249: READE4 (E) : NEXT 

1780 F0RF=9T0249: READF$ (F) : NEXT 

1790 F0RG=6TQ254: READG$ (G) :N£XT 

18O0 F0RH=6TG254:READH$(H> :NEXT 

1810 G8T0130 

1820 DATA"LD BC data","LD (BC) , A", "INC BC","INC B","DEC B","LD B, data" , "RLCA" , “E 
X AF,AF ? ", "ADD HL,BC","LD A, (BC) " , "DEC BC","INC C","DEC C","LD C, data", "RRCA", "D 
JNZ", "LD DE, data" , *'LD (DE), A", "INC DE", "INC D","DEC D","LD D,data", "RLA", "JR", "A 
DD HL, DE" 

1830 DATA "LD A, (DE)", "DEC DE", "INC E","DEC E","LD E,data" , "RRA" , " JR NZ","LD HL, 
data" , "LD (addr) ,HL", "INC HL", "INC H","DEC H","LD H, data" , "DAA" , " JR Z","ADD HL, H 
L" , "LD HL, (addr) ", "DEC HL", "INC L","DEC L","LD L, data" , "CPL" , " JR NC" , "LD ' SP, data 


1840 DATA "LD (addr ), A", " INC SP", "INC (HL)", "DEC <HL)","LD (HL) , data", "SCF" , "JR 
C'V'ADD HL, SP" , "LD A, (addr) ", "DEC SP", "INC A","DEC A","LD A, data" , "CCF" , "LD B, B" 

, "LD B, C" , "LD B, D" , "LD B,E","LD B,H","LD B,L","LD B, (HL) ", "LD B,A","LD C,B","LD 

C, C" 

1850 DATA "LD fc,D", "LD C,E","LD C,H","LD C,L","LD C,(HL)","LD C,A","LD D,B","LD 

D, C", "LD D, D", "LD D,E","LD D,H","LD D,L","LD D, (HL)","LD D,A","LD E,B","LD E,C", 
"LD E, D" , "LD E, E", "LD E,H","LD E,L","LD E,(HL)","LD E,A","LD H,B","LD H,C","LD H 
,D" 

1860 DATA "LD H,E","LD H.H","LD H,L","LD H, (HL) " , "LD H,A , ',"LD L,B","LD L,C","LD 
L, D" , "LD L,E","LD L,H","LD L,L","LD L, (HL) " , "LD L,A","LD <HL),B","LD (HL),C","LD 
(HL) , D" , "LD (HL) , E", "LD (HL),H","LD (HL) , L", "HALT", "LD (HL) , Ä", "LD A,B","LD A,C 


1870 DATA "LD A,D","LD A, E" , 
D A, C'V'ADD A, D" , "ADD A, E" , " 
"ADC A, C" , "ADC A, D" , " ADC A, E 


"LD A,H" , “LD A, L" , "LD A, (HL) ", "LD A, A" , "ADD A,B","AD 
ADD A,H" , "ADD A,L", "ADD A, (HL) "’, "ADD A,A","ADC A, B", 
" , "ADC A, H" , "ADC A,L","ADC A, (HL)", "ADC A,A","SUB B" 
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1880 DATA "SUB C","SUB D","SÜB E'V'SUB H","SUB L","SUB (HL>","SUB A","SBC A, B", 11 
SBC A, C" , "SBC A, D", "SBC A,E","SBC A,H","SBC A,L","SBC A, (HL)", "SBC A, A", "AND B“, 
"AND C" , "AND D" , "AND E" , "AND H" , "AND L" , "AND (HL)", "AND A", "XOR B", "XQR C",“XOR 
D" 

1890 DATA "XOR E“,"XOR H","XOR L","XOR (HL) ", "XOR A",“OR B","OR C", "OR D","OR E" 

, "OR H" , "OR L" , "OR (HL) ", "OR A","CP B","CP C","CP D","CP E","CP H","CP L","CP (H 
L) ", "CP A", "RET NZ", "POP BC", "JP NZ, addr", "JP addr", "CALL NZ, addr" , "PUSH BC" 

1900 DATA "ADD A, data" , "RST 00", "RET Z","RET","JP Z , addr "CALL Z, addr", "CAL 
L addr", "ADC A, data", "RST 08", "RET NC", "POP DE","JP NC, addr ", "OUT (PORT) ,A", "CAL 
L NC, addr", "PUSH DE", "SUB data", "RST 10","RET C","EXX","JP C, addr", "IN A,(PORT)" 
1910 DATA "CALL C, addr "SBC A, data", "RST 18", "RET PO", "POP HL","JP PO, addr" 

, "EX (SP) , HL", "CALL PO, addr ", "PUSH HL", "AND data", "RST 20", "RET PE","JP (HL) 

P PE, addr", "EX DE, HL", "CALL PE, addr", "XOR data", "RST 28","RETT P","POP AF" 
1920 DATA "JP P, addr" , "DI ", "CALL P, addr ", "PUSH AF", "OR data", "RST 30","RET M", "L 
D SP, HL" , " JP M, addr", "EI", "CALL M, addr", "CP data", "RST 38" 

1930 DATA "RLC B", "RLC C","RLC D","RLC E", "RLC H", "RLC L", "RLC (HL)","RLC A","RR 
C B" , "RRC C" , "RRC D","RRC E","RRC H","RRC L","RRC (HL)","RRC A","RL B","RL C","R 
L D","RL E","RL H", "RL L", "RL (HL)","RL A","RR B","RR C", "RR D","RR E","RR H","R 
R L" 

1940 DATA "RR (HL)", "RR A","SLA B","SLA C","SLA D","SLA E","SLA H","SLA L","SLA 
(HL) ", "SLA A" , "SRA B","SRA C","SRA D","SRA E","SRA H","SRA L","SRA (HL)","SRA A" 

, "SRL B" , "SRL C", "SRL D", "SRL E","SRL H","SRL L" 

1950 DATA "SRL (HL)", "SRL A","BIT 0,B","BIT 0,C","BIT 0,D","BIT 0,E","BIT Ö,H", " 
BIT 0, L" , "BIT 0, (HL)", "BIT 0,A","BIT 1,B","BIT 1,C","BIT 1,D","BIT 1,E","BIT 1,H 
" , "BIT 1,L", "BIT 1, (HL)", "BIT 1,A","BIT 2,B","BIT 2,C","BIT 2,D","BIT 2,E" 

I960 DATA "BIT 2,H","BIT 2,L","BIT 2, (HL)", "BIT 2,A","BIT 3,B","BIT 3,C","BIT 3, 
D" , "BIT 3,E", "BIT 3,H","BIT 3,L","BIT 3, (HL)", "BIT 3,A","BIT 4,B","BIT 4,C","BIT 
4, D" , "BIT 4,E", "BIT 4,H","BIT 4,L","BIT 4, (HL)", "BIT 4,A","BIT 5,B","BIT 5,C" 
1970 DATA "BIT 5,D","BIT 5,E","BIT 5,H","BIT 5,L","BIT 5, (HL)", "BIT 5,A","BIT 6, 
B" , "BIT 6, C" , "BIT 6, D", "BIT 6,E","BIT 6,H","BIT 6,L%"BIT 6, (HL)", "BIT 6,A",”BIT 
7, B", "BIT 7, C", "BIT 7,D","BIT 7,E","BIT 7,H","BIT 7,L","BIT 7, (HL)", "BIT 7,A" 
1980 DATA "RES 0,B","RES 0,C","RES 0,D","RES 0,E","RES 0,H","RES 0,L", "RES 0, (HL 
> " , "RES 0, A" , "RES 1 , B" , "RES 1,C","RES 1,D“,"RES 1,E","RES 1,H","RES 1,L","RES 1, 
(HL)", "RES 1 , A", "RES 2,B","RES 2,C","RES 2,D","RES 2,E" J "RES 2,H","RES 2,L" 

1990 DATA "RES 2, (HL)", "RES 2,A","RES 3,B","RES 3,C","RES 3,D","RES 3,E","RES 3, 
H", "RES 3, L" , "RES 3, (HL)", "RES 3,A","RES 4,B","RES 4,C","RES 4,D","RES 4,E","RES 
4,H", "RES 4, L", "RES 4, (HL)", "RES 4,A","RES 5,B","RES 5,C","RES 5,D","RES 5,E" 
2O00 DATA "RES 5,H","RES 5,L","RES 5, (HL)", "RES 5,A","RES 6 r B","RES 6,C","RES 6, 
D" , "RES 6, E" , "RES 6,H","RES 6,L","RES 6, (HL)", "RES 6,A","RES 7,B","RES 7,C","RES 
7, D", "RES 7, E" , "RES 7,H","RES 7,L","RES 7, (HL)","RES 7,A",“SET 0,B","SET 0,C" 
2O10 DATA "SET 0,0", "SET 0,E“,"SET 0,H","SET 0,L","SET O, (HL)", "SET Ö,A","SET 1, 
B" , "SET 1 , C" , "SET 1 , D"_, "SET 1,E","SET 1,H","SET 1,L","SET 1, (HL)", "SET 1,A","SET . 

2, B", "SET 2, C", "SET 2,D","SET 2,E","SET 2,H","SET 2,L","SET 2, (HL)", "SET 2,A" 
2020 DATA “SET 3,B","SET 3,C","SET 3,D","SET 3,E","SET 3,H","SET 3,L","SET 3, (HL 
) " , "SET 3, A" , "SET 4,B","SET 4,C","SET 4,D","SET 4,E","SET 4,H","SET 4,L","SET 4, 
(HL)", "SET 4, A" , "SET 5,B","SET 5,C","SET 5,D","SET 5,E","SET 5,H",”SET 5,L" 

2030 DATA "SET 5, (HL)", "SET 5,A“,"SET 6,B","SET 6,C","SET 6,D","SET 6,E","SET 6, 
H" , “SET 6, L" , "SET 6, (HL) ", "SET 6,A","SET 7,B","SET 7,C","SET 7,D","SET 7,E","SET 
7, H" , "SET 7, L" , "SET 7, (HL)", "SET 7,A" 

2040 DATA "IN B, (C> " , "OUT (C),B","SBC HL,BC","LD (addr ) , BC“, "NEB" , "RETN" , " IM 0", 
"LD I , A " , "IN C, (O'V'OUT (C),C","ADC HL,BC","LD BC, (addr) ", "RETI", "LD R, 
A" , " IN D, (C) " , "OUT (C) , D" , "SBC HL, DE", "LD (addr ), DE" IM 1","LD A, I" 

2050 DATA "IN E, (C) ", "OUT (C),E","ADC HL, DE" , "LD DE, (addr) ", "IM 2","LD A 
, R" , " IN H, (C) ", "OUT (C) , H" , "SBC HL, HL", "RRD", "IN L,(C)","OUT (C) 
,L", "ADC HL, HL", "RLD", "SBC HL, SP", "LD (addr ) , SP" , 

■I 4L II 


2060 DATA "IN A, (C) ", "OUT (C),A","ADC HL,SP","LD SP, (addr) " 

ii ii ii it n ir ii ci ii ci ti ii ii ij ii ii ii ii ii ii ii ii ii ii ii ii ii ii ii ii ii ii l« ii ii ii ii u ii H ii H H il ii U ii H H H ll H H 

", "", "LDI", "CPI", "INI", "OUTI", "LDD", "CPD","IND", "OUTD", "", 


II II II II 
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2070 DATA "LDIR'V'CPIR", "INIR", "OTIR", " " , "LDDR", "CPDR" , " INDR" , "OTDR" , " A 

nn TY nr'i mm mm » u n u ■« im um n 11 ui nn nn ii/\nn TY nc" »» hm um h<i ii 

UU lA.tSU , , , , , , , , , , , , , , , , HUU lAfUtL f , , , , 

V'V'V'LD IX, data", "LD (addr ) , IX", “INC IX","",""« " " , " " , " " , "ADD IX,I.X","LD IX, ( 
addr) ", "DEC IX","" 

2080 DATA » v V V'V’V V' V'INC (IX+zz)", "DEC (IX+zz) ", "LD (IX+zz) ,N", 

"ADD IX SP" 11,1 11,1 11,1 Mn MM MM MM HM HM MM MM M II g (IX + ^Z) " " 11 " " " " " 1,11 1,11 

, "", "LD C, (IX+zz)", "LD D, (IX+zz)", "", 


2090 DATA "LD E, ( I X+zz 1,11 » 


1 , "LD H, <IX+zz>", 


" , "LD L, (IX+zz) "LD (IX+zz) ,B“, "LD ( IX+zz ), C", "LD ( IX+zz ), D" , "LD (IX+zz), E\ 
"LD (IX+zz), H", "LD (IX+zz), LW'LD (IX+zz ), A" "LD A, (IX+zz)" 
2100 DATA “ VW" 1 » » ADD A, ( IX+zz "ADC A, (IX+z 

j u ii I» ii ii ii ii H u ii ii ii ii ii ii "SUB (iX+^z) 11 11,1 " 11 11 " 1,11 ,j " "H u ii "SBC A ( IX+^z ) 11 1,11 11 
ii ii n ii n n H ii n ii n M ß}\jD ( I X+’ 1 * z ) " " 11 " 11 " " 11 11 " " " " " " " XÜR (IX +zz ) 11 11 " " " 11 " 11 11 11 11 


2110 DATA "\"0R (IX+zz) "CP (IX+zz)","","","","","","","" 

II II II II II II II II II II II II II II II II II II II II II II II II II II II II II II II II II II II II II II II II II II II IT II II II II II II II II II 
999999999999999999999999999 

","POP IX","", "EX (SP), IX","", "PUSH IX", "V'JP (IX)","","","","","","","", 

il II II II 

J 


2120 DATA "V" 1 , 


II II II II II II II II II 


, "LD SP, IX", "ADD IY,BC", "", "", "", "" 


, , " " , " " , " " , " " , "ADD I Y, DE , " " , " " , " " , " " , " " , "LD I Y, data " , "LD ( addr ) , I Y" , " I N 
C iy" j "V" , ) "VW "ADD IY, IY" , "LD IY, (addr) ", "DEC iy V V V V'V' V V V'" 
, "INC (IY+zz ) " 

2130 DATA "DEC ( IY+zz "ADD IY,SP" ," " ,"" " " 
, "LD B, ( I Y+zz , “ " , " " , " " , “ " , "LD C, ( lY+zz )","", " " , “ , " ", " ", " ", "LD D, ( 
IY+zz) »VW "LD E, (IY+zz) ", "LD (IY+zz) ,N", "", " ","LD 

H, ( IY+zz) 

2140 DATA " ", " "", " ", "LD L, (IY+zz) ", "LD ( IY+zz) , B", "LD ( IY+zz ), C" , "LD (IY 
+zz ) , D" , "LD (IY+zz), E", "LD (IY+zz) , H", "LD ( IY+zz ), L" "LD ( IY+zz >, A" , 
*| *' !« u n •« |* n j if LD A , (I Y+z 7 )'% 11 11 j 11 11 ^ 11 ,J < 1,11 , " 11 11 11 11 11 ? " ADD A (I Y+z z ) " , 11 11 5 11 11 , 11 " 11 11 , 11 11 " 11 , 11 


2150 DATA "ADC A, (IY+zz) ", 

2160 DATA "'S .. ,- p aft SUB (IY+zz) ", u % 11 ", 11 ", 11 ", “SBC A, (IY+zz) % " 

II II II II II II II II II II II II II ,r ßJ\J[) ( X Y+Z^ ) " 11,1 11,1 U 11 " n 11 11 MH «I” II XQR (lY+^Z ) " 11 11 Hll tl II 

II II Uli II II ilflD “ Hll II II II II II l| II II II II II II II PP \ II Hll (III II II UH »Ml II II II II II II 

3 3 3 3 UTTiii p , ? y y , , , ur UfTZ-J y y y y 5 3 f 9 

II I» 


'■.M DATA *1 11 »I II II II II II »III II II II II llir II II II II Hll Hll II II II II II II II II II II II II Mil II II lllk II II «III II 

UM IM y y , 9 9 J ? 9 9 ? 3 9. . 9 f'-'T 9- 9 9 W 9 9 9 9 9 

","","POP I Y" , " " , "EX (SP), IY","", "PUSH IY", "JP (IY) " ", 
im ii H k h H ii n ii ii ii ii ii ii ii H ii ”[_D SP IY 11 

2180 DATA "RLC (IX+zz)", " " , " ", " " , " " , » " , " ", "RRC ( I X+zz ) " , " " , " " , " " , " " " " , 
" RL (IX+zz)", " " , " " , " " , " " , " " , " " , " " , " RR (I X+zz ) " , " " , " ", " " , " " , " " , " " , " " , " SLA (IX+zz ) 

H II II ll H II II ll il Hll ll II II II HcpA H H II II II H II .11 II II fl U II II IMI III» II II II H II II Hll Uli II 

99999999 9 9 9 9 9 f 9 9 f J 9 9 9 9 9 


2190 DATA "SRL < IX+zz "BIT ©, (IX+zz) " 

" , "BIT 1, (IX+zz)", ""."BIT 2, (IX+zz) V", “ + » » , »», m BIT 

3, ( IX+zz "BIT 4, (IX+zz)", “ "BIT 5, (IX 

+zz) " ' 

2200 DATA "", "", "BIT 6, ( IX+zz W"V, "V"» "BIT 7, (IX+z 

z) ", "RES 0, (IX+zz) "RES 1, (IX+zz)", "" 

^ ii ii H H ^ ii H ^ ii h h ii H ii 2 (I X+‘ ? z ) 11 11 ", 11 n y ,HI j M 11 j u " , " 11 j 11 11 ( "RES 3,(1 X+zz ) M , " " , 11 11 1 " 11 

u ii 

2210 DATA "RES 4, (IX+zz) "RES 5, (IX+zz) 

, " " , " RES 6, ( I X+zz ) " , " " , " " , " " , " " , " "RES 7, ( I X+zz ) " , " " , " " , " " , " " , " " 
» “ , " SET 0,(I X+zz " " , " " , " " "SET 1 , ( I X+zz ) " , " " , " " , " " , " " , " " , " " , " " 
2220. DATA "SET 2, ( IX+zz , " " , " " , " "SET 3, ( IX+zz ) " , " " , " " , " " , " " , " " , " " 


, "RES 6, (IX+zz) ", "" 


y y y y y 1 wJ U y \ * /% « L. L. J 

, "SET O, (IX+zz)","","" 

2220. DATA "SET 2, (IX+zz) ", "" 
, "SET 4, (IX+zz)"," W" 
ET 6, (IX+zz)"," 1 ',"","","","" 
2230 DATA "RLC (IY+zz)","",“ 

II / J t ) 11 11 11 " 11 H II ^ II II II II 


II H ll • 

9 

II II II I 

J 

II II II II II II II II II 2 £-|- Cj £ J X +*7 ?) n '* " 11 11 " " II 11 II II ^ 11 II ^ II n ^ ng 

"SET 7, (IX+zz)“ 

II 11 II II |l II H II II II uppg (IY+zz) 11 H '* " H II II ^ H II I» |J M II ^ II II ^ 

" , " " , "RR (IY+zz)", " " , " " , " " , " " , " " , " " , " " ’, " SLA (IY+zz ) 

Ty._,^\ll II II II II II II Hll II II 11 II II II II H 11 II II II II II II H H II II II l| 


H ii M ti H H ii H H ii ii ii ii ii ii ( j y+^ ? ) 11 


II Ii II II II II 
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SOFTWARE 


2240 DATA "SRL (IY+zz)" 
"/'BIT 1, (IY+zz) 

3, (IY+zs)'*, 


"BIT 2, (IY+: 
BIT 4, (IY+zz) V" 


2250 DATA 


BIT b, (IY+zz) 


"BIT 7, ( IY+ 
V'V'RES (IY+zz)"," 
RES 3, (IY+zz)","","",“ 


2260 DATA 


RES 5, (IY+zz) 


","",1."," RES 6 , < IY+: 
, "SET O, (IY+Z 3 ) ", " 

2270 DATA "SET 2, (IY+zz) 

, " " , "SET 4, (IY+zz) W’ 
ET 6 , (IY+zz)","","",""," 


", "RES 7, (IY+: 
"SET 1, (IY+zz)"," 
"/'SET 3, (IY+zz) 
"SET 5, (IY+zz)",""," 
SET 7, (IY+zz)" 


Thomas Wagner 


x-::; 

Coiour Genie 


Sie sind der Kommandant der 
Mondlandefähre Adler. Ihre Auf- 
gabe ist es nun, die Fähre sicher 
auf dem Mond zu landen. 

Ihre Geschwindigkeit können 
Sie mit dem Bremstriebwerk be- 
einflussen, dessen Schubkraft Sie 
mit den Tasten 1 - 9 steuern. Alle 
wichtigen Informationen zur Lan- 
dung werden im linken, oberen 
Viertel eingeblendet. Nun viel 
Spaß auf dem Mond ! 


100 CLS : CÜLÜUR5 
1 1 0 PR I NT0455 , " Mond 1 andung " 

120 FORZ=0TÜ383 
130 REfiDZl 
140 POKE8HF400+Z, ZI 
138 NEXT 

160 DfiTA8,0, 1,3,7, 15, 15, 15,35,36,255, 127,63,31,255,255, 196,36,255,254,252,248,25 

5.255. 0. 0. 128. 192. 224. 240. 248. 240. 15. 7. 7. 63. 127. 255. 255. 127. 255. 255. 252. 252. 252, 
253 , 252 , 253 , 255 ,255,63,63,63,191,63,191, 248 , 224 , 224 , 252 , 254 , 255 , 255 , 254 

1 78 DPTP3 1 , 63 , 63 , 63, 1 27 , 63 , 63 , 4 , 252 , 253 , 252 , 253 , 252 , 255 , 255 ,3,63,191, 63 ,191,63, 2 

55. 255. 192. 248. 252. 252. 252. 254. 252. 252. 32. 8. 16. 32. 248. 0. 0. 0. 0. 3. 7. 15.0. 0. 6. 0. 0. 1 

92.224.240.0. 8.0.0.0. 16.8.4, 15,0,0,8,0 

180 DATfi0, 0,8, 0,0, 0,1, 3, 0,8, 8,0, 35, 36, 255, 127,8,8,0,8, 196,36,255,254,0,0,8,0,0,0 
, 128, 192,7, 15, 15, 15, 15,7,7,63,63,31,255,255,255,255,252,252,252,248,255,255,255, 
255 , 63 , 63 , 224 , 248 ,248,248, 248 , 224 , 224 , 252 



SOFTWARE 


42 GENIE»! 


198 DATA 127, 255 , 255 , 12?, 31 ,63,65,63,252.253.252,253,252.253, 252,253, 63, .191,63, 19 
1,63,191,63,191, 254 , 255 , 255 ,254,248, 252 , 252 , 252 ,127, 63 ,63,4,8,16,32, 240 , 252 , 255 , 
255 ,3,3, ? , 15,0,63, 255 , 255 , 1 92 ,192. 224 , 24Ö , 0 , 254 , 252 , 252 , 32 ,16,8,4,15 
200 [>mm, 0, 3, ?, 15, 63, 127, 255, 0, 248, 254,255,255, 255,255,255,0,0,3, 143,255,255, 25 
5 , 255 ,0,0,1 28 , 1 92 , 224 , 240 , 255 , 255 ,0.0,0,0,56.1 27 , 255 , 255 ,0,0,1 28 , 1 92 . 252 , 254 ,255 
, 255,0,0,0,0,0, 1 , 255,255, 0,0,0, 8, 224, 248, 254, 255 

210 DATA2,2,4,4,9, 18, 13,36,64,32,32. 144, 144,8,72,68,2,4,4,9,9, 16, 18.34.64.64,32, 
32, 144,72,72,36 

220 DATA2, 136,32, 1,64.2, 132.1,160. 18,0,3,4,64,2, 136, 145,44,64,1,32,8,2, 129, 129, 1 
6,65,2,4. 16,64.2 

23ü CLS: RANDOM: 2=0: H=8099: U=55: T=2008: F=1000: S=@: M=4590: Ö=1 . 62:21=1 : 1=0: 22=0 
240 FORA= 1 TO20 : COLÜURRND < 1 6 > : PR I NT8RN0 < 300 > +509 HEXT 
250 C0L0UR6 : FORA=0TO 1 5 
260 PRINTSA, CHRf <21 1 ) ; 

270 PR I NT Sfl+360 , OHR# < 2 1 8 ) ; 

288 NEXT 


290 FÜRA=0TO360STEP40 
300 PRINTSA, CHRf <28? > ; 

310 PRINTSA+ 15, CHRf <219> ; 

32Ö NEXT 

330 PR I NTSö , CHRf < 223 > ; 

348 PR I NT0360 , CHRf < 227 > ; 

350 PRINTS 15, CHRf <227); 

360 PR I NT @375 , CHRf < 223 > ; 

370 COLOUR1 1 : PRINTS4 1 , “Hoehe: " 

380 PRINTS 121 , "Geschw. : " 

398 PR INTS201. "Schub:" 

400 PR I HTS28 1 , " T re i bs t . : " 

410 COLÖUR3 

420 PR I NT @840 , CHRf < 165 > CHRf < 1 66 > CHRf < 1 67 ) ; " “ ; CHRf < 1 60 > CHRf <161 > CHRf < 1 62 > CHRf C 

1 63 > CHRf < 1 64 ) CHRf < 1 62 ) CHRf < 1 65 ) OHRT- < 1 66 ) CHRf ( 1 67 > CHRf <165) CHRf < 1 64 > CHRf < 1 67 > CHRf 
< 1 69 > CHRf <161) CHRf < 1 62 ) CHRf <163); STR I NGf <13, " " > ; CHRf < 1 60) CHRf <161) CHRf < 1 63 > CHRf 
< 1 64) CHRf < 162) : 

430 PR I NTS880 , STR I Nöf < 3 , 202 > ; CHRf <163) CHRf < 1 64 )CHRf < 1 62 > ; STR I NGf <16, 202 ) ; CHRf < 1 6 
5 > ; STR I NGf < 8 , " " > ; CHRf < i 60 ) CHRf < 1 63 ) CHRf < 1 64 > CHRf < 1 62 ) • STR I NGf < 5 , 202 ) ; 

440 PRINTS928, STRINÖf <23, 282) ; CHRf < 1 61 ) CHRf < 161 XGMRf < 202) CHRf < 161 )CHRf < 162) CHRf < 
282) CHRf <161 )CHRf < 162) ; STRINÖf <9, 2@2>; 

458 I f = I NKEVf 

460 I F I f O '■ " THEN I =ASC < I f ) 

478 1 F I >4? AND I <58THENS= I -48 
480 IFT<=0THENT=0sS=0 
498 COLOÜR1 

590 PRINTS48, US ING "#####" ; H 
5 1 0 PR I NT S 1 29 , US ING "4444"; U 
520 PRINTS209. ;S 
530 PR I NT @290 . US I NG "4444 " ; T 
540 I FH< 1 09THENZ=0 . 5ELSEZ=Z 1 

55ö U=U- < F*S/M-6 ) +2 : H= I NT < H-U+2 ) : T=T-3*Z : M=M-S*Z 

568 I FU>50ANDH< 1 090THEN2=2 

570 I F H>4000THEN6OSUB 1 1 08 

588 I FHC4000THENGOSU8 1 260 

598 IFZ2=2THEN820 

680 I FS=0THENSOUHD6 , 0 : SOUND? , 0 : SOUNDS , 0 
61W IFS=0ANDH>108THENPRINT@B+161 , " 

628 I FS>0TH£NGOSUB 1510 
630 GOTO450 
640 C0L0UR1 
650 PRINTSB-40, " 

660 I FZ=2THENPR I HT0B-80 , " " ; 

670 PR I NTSB , CHRf < 1 28 ) CHRf < 1 29 ) CHRf < 1 30 > CHRf <131); 

680 PR I NTSB+40 , CHRf < 1 32) CHRf < 1 33 ) CHRf < 1 34 ) CHRf < 1 35 > ; 


■ ' 





Absender 


Bitie 

freimachen 


Name 


Straße 


Für private Abonnenten der GENIE DATA 
sind die ersten drei Zeilen der Kleinanzeige 
kostenlos. 

Jede weitere Zeile 5,50 DM 

Private Kleinanzeigen pro Zeile 6,00 DM 

Geschäftliche Kleinanzeigen 
pro Zeile 7,50 DM 

Chiffre Gebühr 9,00 DM 

Alle oben angegebenen Preise werden 
Ihnen zuzüglich der gesetzlichen MWSt, 
berechnet. Der Betrag ist sofort nach 
Erhalt der Rechnung rein netto zahl- 


HEINZ HÜBBEN 
Offsetdruckerei / Verlag 
Mühlbachstraße 2 
D 5429 MARI EN FE LS/Taunus 


Absender 


Bitte 

freimachen 


Name 


Straße 


HEINZ HÜBBEN 
Offsetdruckerei / Verlag 
Mühlbachstraße 2 
D-5429 MARIENFELS/Taunus 


iS?? . - 


Bitte 

freimachon 


11/84 
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GENIE III 


ABONNEMENT BESTELLUNG 


Hiermit bestelle ich Abonnement(s) der Zeitschrift 

GENIE DATA. 

Mir ist bekannt, daß ich das Abonnement zu federn Quartal, 
jeweils 6 Wochen vor Quartalsende, kündigen kann. 

Der Bezugspreis beträgt innerhalb der BRD nur DM 59,40, 
pro Abonnement. (Sechs Ausgaben) frei Haus, 

Die Bezugsdauer verlängert sich nach Ablauf eines Jahres um 
weitere 12 Monate, solange bis das Abonnement gekündigt 
wird. 

Mit obigen Bedingungen erkläre ich mich Einverstanden: 


Unterschrift - - . Datum : 

Bei Jugendlichen unter 18 Jahren, Unterschrift eines 
Erziehungsberechtigten ! 


GENIE III KONTAKT -KARTE 


Ihr Inserat in der GENIE DATA Nr. hat meine Beachtung 

gefunden. 


Hiermit bestelle ich zur schnellstmöglichen Lieferung: 


Anzahl 

Artikel 

Preis 

















Unterschrift : Pgl u ™ ■ 

Bei Jugendlichen unter 18 Jahren, Unterschrift eines 
Erziehungsberechtigten . 


GENIE BMI KLE1N-ANZEIGEN-BESTELLUNG 

Bitte veröffentlichen Sie nachstehenden Text in der 
nächsten Ausgabe von GENIE DATA unter der Rubrik 
Kleinanzeigen. 

Bei ABONNENTEN unbedingt ABONNENT hin schreiben 
SONST ERFOLGT RECHNUNG! 


Unterschrift Datum 

Mit meiner Unterschrift versichere ich, keine urheber- 
rechtlichen Bestimmungen zu verletzen. 

GENIE lli 

Reservieren Sie uns bitte angekreuzten Platz für ein Inserat 
zum Erscheinen in der nächsten GENIE DATA. Unsere Satz- 
vorlage, bzw. Film, geht Ihnen umgehend zu. 



O 1/1 Seite 
O 1/2 Seite 
O 1/3 Seite 
O 1/4 Seite 


O 1/8 Seite 

O Wir sind interessiert an Kleinanzeigen 
O Bitte, senden Sie uns 

Ihre Anzeigenpreisliste zu I 


GENIE DATA 

O WER-WAS-WO-Einkaufsfiihrer 
Inseratgroßa 55x45 mm DM 55,-- + 14% MWSt, 
abzüglich 10% Rabatt für 6x Erscheinen. 
Satzkosten für 4 Zeilen einmalig DM 15,-- 


O Neusatz muß 
von Ihnen 
erste 1 1 1 werden ! 


Jede weitere Zeile Setz kostet DM 7,50 


Unterschrift 


Datum 



690 CGLÜUR1 1 

7Ö0 PR I NTSB+80 , CHR* CI 36 > CHR* CI 37 ) CHR* < 1 38 > CHR* C 1 39 ) ; 

7 1 8 PR I NT08+ 1 20, CHR* C 1 48 ) CHR* C 1 4 1 ) CHR* C 1 42 ) OHRS < 143); 

720 RETURN 
736 C0L0UR1 

740 IF2=2THENPRINT@B-40, " " ; PRINTSB-80, " 

750 PRINTSB, CHR*C 144>CHR*< 145)CHR*C 146)CHR*C 147) • 

760 PRINT SB+40 , CHR* C 1 48 ) CHR* CI 49 ) CHR* C 1 50 > CHR* C 1 5 1 ) ; 

770 C0L0UR1 1 

780 PR I NT SB+88 , CHR* C 1 52 ) CHR* C 1 53) CHR* C 1 54 > CHR* C 1 55 ) ; 

790 PR I NTS8+ 1 20 , CHR* C 1 56 ) OHRT C 1 57 ) CHR* C 1 58 ) CHR* C 1 59 ) ; 

800 I FUC0THENPR I NT SB+ 1 60 , " " ; PRINTSB+163, " 

810 RETURN 
820 IFUC3THEN850 
830 IFUC20THEN900 
840 GOTO 1800 

850 C0L0UR3 : PR I NT @859 , CHR* C 202 ) ; CHR* C 202 ) ; : fi*=CHR* C 1 93 ) : PR I NT@74 1 , fl* ; ft* ; ; PR I NT@7 
80 , ft* ; fl* ; A* ; : C0L0UR6 : PR I NTS740 , CHR* <196);: CÜLQUR 1 : A*=CHR* C 2 19): PR I NTS739 , ft* ; : PR I 
NT @7 79 , fl* ; : PR I NT@8 1 9 , fl* ; 

860 F0RO1TÜ2: F0Rfl=lT08: F0RB=1T012: PLfiVC 1 , fl, B, 1 1 ) : NEXT : NEXT : HEXT: PLflVC 1 , 1 , 1 , 0) 
870 PRINT@60, "Perfekte Landung" 

880 PRINTS 100, "mit. : PRINT USING" #.##"; U; : PRINT "kWh 11 

890 GÜTO960 

9G0 SOUNDS , 9 : SOUND 1,8: S0UND2 , 0 : S0UND3 , 8 : S0UND4 , 0 : SOUNDS , 8 : SÜUND6 , 24 : S0UND7 , 7 : SOU 
ND8, 24: S0UND9, 24: SOUND lö, 0: SOUND 1 1 , 48: SOUND 12, 45: SOUND 13, 3 
918 COLOURl 
920 S=3 

930 PRINTS60, "Harte Landung )" 

940 PRINTS 100, "Faehre beschaediot ! " 

950 GOTO960 

960 I FS=2THENF0Rfl= 1 TÖ800 : NEXT : PRINT6B, " : F'RINT@B+48, " : PRINTSB+80, " 

: PRINT0B+120, " 11 j CHR*< 164) ; : COLOURl 1 

970 I FS=3THENCÜL0UR5 : PR I NTSB+ 1 23 , CHR* < 227 ) ; : COLOUR 1 1 
980 PRINTS 180, "Neues Spiel C J^N) " : ft*=" " 

990 fl*=INKEV*: I Ffl$= " N " THENENDELSE I F ft*= " J " THENRESTORE : GOT O230ELSE990 
1 OOO SOUNDO , 255 : SOUND 1,15: SGUND2 , 253 : S0UND3 , 1 5 : S0UNÜ4 , 255 : SOUNDS .15: S0UND6 , 23 : SO 
UHD7, 7: SOUNDS, 31 : SÜUND9, 31 : SOUND10. 31 : SOUND 1 1 , 255: SOUND 12, 255: SOUND 13, 9 
1010 C0L0UR5 

1 820 PR I NT SB+ 1 20 , CHR* CI 7 1 > CHR* C 1 73 ) CHR* < 1 74 > CHR* C 1 75 ) : C0L0UR6 
1 030 PR I NT SB , CHR* (172) CHR* C 1 73) " " 

1040 PRINTSB+40, CHR*C 173) CHR* C 174 > CHR* CI 75) CHR* CI 72) : C0L0UR2: S=2 
1 050 PR I NTSB+80 , CHR* C 1 73 )CHR* CI 72) CHR* < 1 74 ) CHR* CI 75) 

1060 COLOURl 

1070 PRINTS60, "Sie sind auf dem " 

1080 PRINTS 100, "Mond zerschellt," 

1690 F0RA=1TG10: CHAR4: FORfll=lTÖ20: NEXT: CHAR2: NEXT: 6OTO960 

1 1 00 I FH>7750THEH8=65 : G0SU8736 : RETURN 

1118 IFH>7500THENB=65: G0SUB738: RETURN 

1120 IFH>7250THENB=105: GOSUB640: RETURN 

1130 IFH>7000THENB=105: GÜSUB730: RETURN 

1140 I FH>6750THENB= 1 45 : QOSUB640 : RETURN 

1150 IFH>6500THENB=145: GOSUB730: RETURN 

1160 IFH>6250THEN8=185: GGSU8640: RETURN 

1170 I FH>6000THENB= 1 85 : GOSUB730 : RETURN 

1 1 80 I FH>5750THENB=225 : GOSUB640 : RETURN 

1 1 90 I FH>5500THENB=225 : GOSUB730: RETURN 

1 280 I FH>5250THENB=265 : GOSUB640 : RETURN 

1218 I FH>5000THENB=265 : GÜSUB730: RETURN 

1220 I FH>4750THENB=305 : G0SUB640 : RETURN 

1230 IFHD4500THENB-305: GOSUB730: RETURN 

1240 IFH>4250THENB=345: GOSU8640: RETURN 
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1236 I FHM000THENE-345: 60SUB736: RETURN 
1 260 I FH>3?50THEN6=385 : 60SUB646 : RETURN 

1 279 I FH>3580THENB=385 : G0SUB736 : RETURN 

1 280 I FH>325ÖTHEHB=425 : GOSUB640 : RETURN 
1 290 I FH>30Ö0T HE MB=4 25 : GOSUB730 : RETURN 
1 300 I FH>2?50THENB=465 : S0SUB646 : RETURN 
1316 I FH>2500THENB=465 : G0SUB730 : RETURN 
1 320 I FH>2250THENB=505 r GQSUB640 : RETURN 
1 330 I FH>2000THENB=585 : 6OSUB730 : RETURN 
1 348 I FH> 1 ?50THENB=545: GOSUB640: RETURN 
1350 IFH>1S00THENB=S45: GOSUB730: RETURN 
1 360 I FH> 1 250THENß=585 : GOSUB640 : RETURN 
1 370 1 FH>1000THENB=585: GQSUB736 : RETURN 
1380 I FH>758THENB=625 : GQSUB640: RETURN 

1 39Ö I F H>5Ö0T HE HB-625 : GOSUB730 : RETURN 
1 4Ö0 I FH>400THENB=665 : GO5U8640 : RE TURN 
1416 I FH>300THENB=665 : QOSUB730 : RETURN 
1 420 I FH>200THENB=705 : G0SUB64Ö : RETURN 
143Ö IFH>100THENB=705: GOSUB730: RETURN 

1 449 I FH>50T:HENB=7 45 : GOSUB640 : RETURN 

1450 I FH>40THENB=745 : 6OSUB730: RETURN 
1 460 I FH>30THEHB=785 : 6ÖSUB640 : RETURN 
1 470 I FH>20THENB= 785 : GOSUB730 : RETURN 
1 480 I FH>0THENB=785: GOSU8640 : RETURN 

1 49© IFH<0THENB=785 : GOSUB730 : 22=2 : RETURN 
1500 RETURN 
1510 C0L0UR5 

1520 I FF'EEK < 1 7569+B> =161 THENRETURN 
1530 IFU<0THENPRINT0B+201 , " " 

1549 fl=RNDC4) 

1 550 I FH= 1 THENPR I NT0B+ 1 6 1 , CHR$ < 1 68 ) CHR$ (1 69 > ; 
1568 IFfl=2THENPRINT0B+161 , CHR$< 170>CHR$ < 169) ; 
1570 IFfl=3THENPRINT@B+161 , CHR*< 170)CHR$< 171 > ; 
1 589 I Fft=4 THENPR I NT0B+ 161, CHR$ < 1 68 > CHR* ( 1 7 1 ) ; 
1 598 SOUNDS ,16: SOUND? , 55 : SOUNDS , 1 2 

1609 RETURN 



...verdienen Sie mit Ihrem Hobby etwas nebenher, 
unsere Konditionen finden Sie im Impressum! 

Und vergessen Sie nicht, das Programm auf 
Cassette oder Diskette beizulegen! 

Vielen Dank ! 


Bernd Drechsel 
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Funktionsdiskussion 




Wer sich in der Mathematik täg- 
lich mit gebrochenen rationalen 
Funktionen herumquälen muß, 
wird dieses Programm warschein- 
lich sehr begrüßen. Es erlaubt 
einen sehr komfortablen Umgang 
mit solchen Funktionen. Der 
Rechner entartet nur die Koe- 
ffizienten des Zählers und des 
Nenners und außerdem die Be- 
arbeitungsgrenzen. 

Danach ermittelt das Colour 
Genie folgende charakteristische 
Daten der Funktion: 

Polstellen 

Definitionslücken 

Nullstellen 

Extremwerte 

Sobald es einen Wert ermittelt 
hat, gibt es ihn an den Drucker 
weiter. Als Drucker kommen der 
Star DP 510 und DP 515 in Fra- 
ge. Wenn der Computer alle Wer- 
te errechnet hat, fragt er, ob man 


eine Zeichnung der Funktion 
wünscht. Lautet die Antwort ja, 
so bittet er um die Eingabe der 
Grenzen auf der X-Achse. 

Den dazugehörigen Maßstab der 
Y-Achse ermittelt er selbst. 



Man kann also getrost die Hän- 
de in den Schoß legen und war- 
ten. Warten muß man allerdings 
schon etwas, ein Programmlauf 
dauert etwa eine halbe Stunde. 

Also nur nicht nervös werden. 


1 » ******************************t******************************* 

2 ’*** *** 

3 '*** DISKUSSION GEBROCHEN RATIONALER FUNKTIONEN (C) bd *** 

4 ’*** *** 

5 ’******************************************************** ****** 

6 ’ 

7 » 

S •' 

9 CLS 

10 PRINT" GEBROCHEN RATIONALE FUNKTIONEN" s PR INT" ================== 

20 PRINT"* ZAEHLERGRAD MAX. 4, NENNERGRAD MAX. 2 *";: PRINT" 


30 PR INT" 5 KOEFFIZIENTEN FUER ZAEHLER" 

40 PRINT" IN ABSTEIGENDER REIHENFOLGE" 

50 INPUTA1.A2. A3, A4, A5 

60 PR INT "3 KOEFFIZIENTEN FUER NENNER" 

70 PRINT" IN ABSTEIGENDER REIHENFOLGE" 

80 INPUTB1 , B2, B3 

70 PRINT"GEBEN SIE DIE INTERVALLGRENZEN AN" 

100 INPUTA.B 

1 10 F0RX=120TQ800STEP40: PRINTiX , STRING* (40, 32) ; : NEXT 

120 PRINT§120, " " ; : PRINTUSING"##.#" ; Al ; : PRINT"X-4+"; s PR1NTUS1NG"## 

. ff" ; A2; : PRINT" X-^3+" ; : PRINTUSING"##. #" ; A3; : PRINT"X-2+" ; : PRINTUSING“##. #" 
,-A4; :PRINT"X+"; : PRINTUSING"##. #"; A5; 

125 PRINT"-f (x)= 

130 PRINT" PRINTUSING"##.#"; Bl; : PRINT"X-2-*-" ; ; PRINTUSING 
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"##.#"; B2; : F'R INT" X+ " ; : PRINTU5 ING" ##.#"; B3; : PRINT" PRINTSTRING 

$ (40,32) ; 

131 LF'RINTCHR* (27) "§" :CHR$(27) "Wl LPRINT" bd FUNKT IDNSDISKUSS ION“ 

: LPRI NT STR I NG$ (38.241).- LPR I NTCHR* ( 27 ) " § " : LPR 1 NT 

132 LPR INT" : LPRINTUSING” ##.##" ; Als sLPRINT" X“ ; CHR$ ( 1 64) : " 4+ •• • ; 

LPRINTUSING"##. ##":A2: : LPR INT" X" ; CHR$ ( 1 64) ; "3+ " ; LPRINTUSING"##. ##" : A 
3; : LPRI NT" X" ; CHR* ( 164) ; "2+ " i : LPRINTUSING" ##.##" s A4; : LPRINT" X+ " ; : LPR 
I NTUSING"##. ##" ; AS 

133 LPRINT" *(:<>= : LPRINTSTRING* (46, 241 ) 

134 LPRINT" LPRINTUSING"##. ##"; Bl; : LPRINT" X":CHR$<16 

4); "2+ " ; : LPRINTUSING"##. ##" ; B2; : LPRINT" X+ " s : LPRINTUSING" ##. ##"; B3 

135 LPRINT : LPRINT : LPRINT : LPRINT : LPRINT : LPRINT" — BEOBACHTETER BEREICH 

: LPRINTUSING"##. ##"; A; : LPRINT" BIS " ; : LPRINTUSING"## . ##" ; B: LPRINT : 

LPRINT: LPRINT 

139 11 ****************************** 

140 **** BEST. DER POLSTELLEN *** 

150 ’ **** ** ****************** ****** 

160 IFB1=0THEN230 

170 D= (B2/B1 ) Ä2- (B3/B1 ) *4 
1 BO I FD< 0THEN27 0 
190 Pl=-B2/ (2*B1)-SQR(D) /2 
200 P2=-B2/ (2*B1)+SQR(D) /2 

210 PRINT : PRINT"— POLSTELLEN BEI: X 1=" :: PRlNTUSlNG"##. ##" ; PI PRINT " X2 
=": : PR INTUS ING"##. ##";P2 

215 LPRINT" — POLSTELLEN BEI : Xl=" :: LPRINTUSING" ##.###"; PI :: LPRINT " 
X2= " : : LPRINTUSING"##. ###" ; P2: LPRINT: LPRINT: LPRINT 
220 G0T0500 
230 I FB2=0THEN27Q 
240 F‘l— -B3/B2 
250 P2=P1 
260 GOT 02 10 

270 PRINTSTRING* (40.32) ; :F'RINT"ES LIEGEN KEINE POLSTELLEN VOR. " : LPRINT" 
— ES LIEGEN KEINE POLSTELLEN VOR. ": LPRINT: LPRINT: LPRINT 
280 P1=A V 

290 F'2=A: G0T0500 
500 ’****** ************** ******* 

510 ’*** DEF I N 1 T I DNSLUECKEN *** 

520 **************************** 

530 FORX=ATQBSTEP. 01 

540 D1=B1*XÄ2+S2*X+B3 

550 IFABS (Dl ) < 1E-3THENDL=X: GOT0600 

560 NEXTX 

580 GOTO 1000 

600 PRINT: PRINT"- DEFINIT IONSLUECKE BEI X=" : : PR INTUS ING"###. ##" ; X 
605 LPRINT" — DEFINIT IONSLUECKE BEI X=" LPRINTUSING"##. ###"; X 
610 G0T0560 

997 ’*************************** 

998 J *** BEST. DER NULLSTELLEN** 

999 ^ *************************** 

1 000 LPRINT : LPR I NT : LPR I NT : PR I NT : FOR X= ATOBSTEP . 0 1 
1010 N1=A1#XA4+A2*XÄ3+A3*XÄ2+A4*X+A5 

1020 IFABS (NIX 1E-5THEN1050 
1030 NEXT 
1040 GDT01500 

1050 PRINT"- NULLSTELLE BEI X=" :: PR INTUS ING" ###.##"; X 
1055 LPRINT" — NULLSTELLE BEI X=" LPRINTUSING"##. ###": X 
1060 GOTO 1030 

1500 **************************** 

1510 ’*** BEST. EXTREMWERTE *** 

1520 *************************** 
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1530 PRINT : LPRINT : LPR1NT : LPRINT 
1540 F0RX=AT0BSTEP. 01 

1550 El=( (4*A1*XÄ3+3*A2*XÄ2+2*A3*X+A4) * (B1*XÄ2+B2*X+B3) - (A1*XÄ4+A2*X«3+ 
A3*XÄ2+A4*X+A5) * ( 2*B1 *X+B2) ) / ( (Bl *XÄ2+B2*X+B3) Ä2> 

1560 IFABS (El ) < IE— 2GQSUB1600 
1570 NEXTX 
1 580 G0T02000 

1600 Y1=(A1*XÄ4+A2*XÄ3+A3*XS2+A4*X+A5) / (B1*XÄ2+B2*X+B3) 

1610 PRINT"- EXTREMWERT BEI X=" s : PR1NTUSING"###. ##" ; X; : PRINT" Y=“;sPRI 
NTUS I NG "### . ## " ; Y 1 

1615 LPRINT" — EXTREMWERT BEI X=" :: LPRINTUSING"##. ###"; X; : LPRINT" Y 

= " ; : LPR INTUS ING"##. ###" ; Y1 
1620 RETURN 

2000 ’ ************************** 

2010 '*** ZEICHN. DER FUNKT. *** 

2020 7 ************************** 

2030 PRINT: PRINT" ZEICHNEN DER FUNKTION:? 

2031 INPUT" (J/N) " ; Ai: IFA$=" J "THEN2040ELSEEND 

2040 PRINT; PRINT"UNTERE GRENZE, OBERE GRENZE" s : INPUTA, B 
2050 IFB<=ATHEN2040 

2060 AX=INT(A*10) : BX=INT ( B» 10) : W=BX-AX: DIMY (W) 


2070 FORS=OTOW:X=(AX+S) /IO 

2080 Y(S)=(A1*XÄ4+A2*XÄ3+A3*XÄ2+A4*X+A5>/ (B1*XÄ2+B2*X+B3) : IFS=OTHENNEXT 
S 

2090 IFABS (Y(S) ) >=ABS(Y(S-1) ) THEN JK=ABS ( Y (S) ) 

2100 NEXTS 

2110 IFJK<=10ÜTHENM=1 
2120 IFJK<= 50THENM=2 
2130 IFJK<- 10THENM=10 
2140 IFJK<= 5THENM=20 
2150 IFJK<= 1THENM=100 
2160 IFJK<= . 5THENM=200 
2165 IFW< =500 THENSW=4 
2170 IFW<=100 THENSW=20 
2180 IFW<= 50 THENSW=40 
2190 IFW<= 10 THENSW=200 
2200 IFW<= 5 THENSW-400 
2210 IFW< = 1 THENSW=2000 

2500 LPRINTCHR* (27) LPRINTCHR* (27) “-1 : LPRINT" ZEICHNUNG DER FUNKT 

ION: :LPRINTCHR*(27> "§" 

2510 LPRINT" — LINKE GRENZE: LPRINTUSING"###. #"; A 
2520 LPRINT" — RECHTE GRENZE: LPRINTUSING"###. #"; B 

2540 LPRINT: LPRINT" — HOECHSTER FUNKTIONSWERT IN ANGEGEBENEN GRENZEN: 
: LPRINTUSING"###. ##"; JK 
2550 LPRINT: LPRINT: LPRINT 
2560 H1=100:DIMX (205) 

2570 F0RZ=H1T0— H1STEP-8 

2580 F0RS=0TD200 : V= (S-100) /SW: Q=Z 

2590 X (S) =0: IFV<=DL+. 01 ANDV>=DL-. 01THEN2591ELSE2600 

2591 IFDL=0THENX (S> =255 

2592 G0T02710 

2600 H= (Al * VÄ4+A2* VÄ3+A3* VÄ2+A4* V+A5 > / ( Bl »VÄ2+B2* V+B3 ) 

2610 H=H*M 

2620 IFINT (H) =Q ORQ =OTHENX (S) =X (S) +128 


2630 

2640 

2650 

2660 

2670 

26B0 


IFINT (H) =Q-1 ORQ— 1 
IFINT (H)=Q-2 ORQ— 2 
IFINT (H)=Q-3 ORQ— 3 
IFINT (H)=Q-4 ORQ— 4 
IFINT (H)=Q-5 ORQ-5 
IFINT (H)=Q-6 ORQ-6 


=OTHENX (S)=X (S)+ 64 
=OTHENX (S) =X (S) + 32 
=OTHENX(S)=X <S)+ 16 
=OTHENX (S)=X (S)+ 8 

=OTHENX(S)=X(S)+ 4 
=OTHENX(S)=X(S>+ 2 
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2690 1FINT (H) =Q— 7 ORQ-7 =OTHENX (S) =X (S) + 1 

2700 IFV<=0. 01 ANDV>=-„ 01THEN X(S)=255 

2710 NEXTS 

2720 GOTO 10000 

2730 NEXT2 

2740 END 

10000 LPRINTCHR* (27) ,, L"CHR$ ( 1 49) CHR$ ( 1 ) I : A=0: G0SUB20000 
10020 F0RC=0TQ201 : A=X (C) : G0SUB20000: G05UB20000: NEXT 
10030 LPRINTCHRi (27) "A"CHR$ (8) CHR* ( 10) ; 

10040 G0T02730 

20000 IFJDY1X01THEN20000 

20010 S0UND7, 255: S0UND14, A: S0UND15, 254: SOUND 15, 255 
20020 RETURN 


Bitte beachten : — bedeutet CHR$(232) ! 


Peter Steinz 

NEWPRINT 


Besitzer eines TRS 80 Model! 1 
oder eines Video Genie, die einen 
modernen Drucker wie zum Bei- 
spiel den Epson FX-80 ihr Eigen 
nennen, werden sich bestimmt 
schon darüber geärgert haben, daß 
sie nicht alle Funktionen des 
Druckers nutzen können. 

TRS 80 und Genie können 
nämlich nicht alle Steuerzeichen 
an den Drucker ausgeben. Das 
Zeichen CHRIE(O) wird einfach ig- 
noriert, CHRS(II) und CHR$(12) 
werden in simulierte Form-Feeds 
umgewandelt (wiederholter 

Wagenrücklauf) und CHR$(10) 
wird in CHR$(13) umgewandelt. 

Abhilfe schafft hier nur ein 
neuer Druckertreiber. 

Dieser neue Treiber braucht nur 
zu prüfen, ob der Drucker be- 
schäftigt ist und falls ja, zu warten 
bis der Drucker zur Übernahme 
von Daten bereit ist. Damit ist 
schon ein Teil des Problems ge- 
löst und CHR$(0), CHR$(11) 
und CHR$(12) können ausgege- 
ben werden. Nicht ganz so ein- 
fach ist es mit CHRJ(IO). Die 
Umwandlung in CHR$(13) ge- 

000 10 ;******* 
00020 ;* 


schieht schon im ROM vor An- 
sprung des Druckertreibers. Da 
man im ROM aber nichts ändern 
kann, hilft nur ein Trick. 

Jedes mit dem LPRINT-Befehl 
auszugebende Zeichen wird im 
Zuge der Abarbeitung der Rou- 
tinen im ROM auf dem Stack 
abgelegt und liegt da auch noch, 
wenn der Treiber angesprungen 
wird. Da es auch, relativ gesehen, 
immer an der selben Stelle des 
Stacks liegt, braucht also der 
neue Treiber nur das ursprüng- 
lich auszugebende Zeichen von 
dieser Stelle zu holen. 

Das Programm schützt sich 
selbst, MEM SIZE ist nicht erfor- 
derlich. In Zeile 100 wird die 
Ansprungadresse des neuen Trei- 
bers in den Printer DCB geladen. 
Das eigentliche Treiberprogramm 
beginnt ab Zeile 150. Es wird zu- 
nächst geprüft, ob das auszuge- 
bende Zeichen = 13 ist (entweder 
war dann wirklich CH RS( 1.3) ge- 
meint, oder CHR$(10) wurde 
schon umgewandelt). Trifft dies 
zu, wird das ursprüngliche Zeichen 
(10 oder 13) vom Stack geholt 

********** * 


und in den Akkumulator geladen, 
andernfalls wird gleich zur Aus- 
gaberoutine in Zeile 260 gesprun- 
gen. Die Zeilen 230 bis 250 sind 
nur eine Vorsichtsmaßnahme. 
Wenn nämlich der Treiber nicht 
vom LPRINT-Befehl angesprungen 
wird, sondern von DOS Funktio- 
nen mit Druck-Ausgabe, wie z.B. 
JKL, ist der Stack anders auf- 
gebaut, und es wäre ohne diese 
Zeilen kein Wagenrücklauf mög- 
lich. 

Nun zur Ausgabe-Routine. Die 
Zeilen 270 bis 310 beinhalten die 
Prüfung, ob der Drucker bereit 
ist. Durch das Ausbienden des Bit 
6 des Druckerstatus wird auch die 
Funktion 'Abschalten Papierende- 
kennung' des FX-80 nutzbar ge- 
macht, die im ROM vorgesehene 
Printerstatus-Prüfung ermöglicht 
das nicht. Ist der Drucker bereit, 
wird das Zeichen in Zeile 330 
ausgegeben. Zur Anpassung an das 
Video Genie muß die Zeile 270 in 
"IN A,(FD)" und die Zeile 330 in 
"OUT (FD), A" geändert werden. 


********** 

* 


NEWPRINT 

00030 ;* PRINTER-TREIBER FUER TRS-80 MODEL I * 

00040 ;* IN VERBINDUNG MIT DEM DRUCKER EPSON FX-80 * 
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00050 

? * 

<C> PETER STEINZ, 6000 

FRANKFURT /MAIN, 1983 * 

00060 

; * * * 

* * * * 

******* 

************** 

00070 





00080 


ORG 

OFFCAH 

; BEI 48 K 

00090 

INI T 

LD 

HL, NEWPR 

; NEUE TREIBERADRESSE 

00100 


LD 

( 4026H ) , HL 

; IN 4026H LADEN 

001 10 


DEC 

HL 


00 120 


LD 

(4049H > , HL 

; NEUES DQS-HI GHMEM IN 

00130 




; 4049H LADEN 

00140 


RET 



00150 

NEWPR 

LD 

A,C 

; ZEICHEN NACH A 

00160 


CP 

ODH 

;ZEICHEN=13 ? 

00170 


JR 

NZ, DRUCK 

; NE I N — > AUSGEBEN 

00180 


LD 

(ZWSP) ,SP 

; STACKPOINTER IN ZWSP 

00 1 90 


PUSH 

IX 

; IX RETTEN 

00200 


LD 

IX , (ZWSP) 

; STACKPOINTER IN IX 

00210 


LD 

A, (IX+17) 

; RICHTIGES ZEICHEN NACH A 

00220 


POP 

IX 


00230 


CP 

OAH 

; ZEICHEN=10 ? 

00240 


JR 

Z , DRUCK 

;JA, DANN AUSGEBEN 

00250 


LD 

A , ODH 

; A WIEDER MIT 13 LADEN 

00260 

DRUCK 

PUSH 

AF 

; ZEICHEN RETTEN 

00270 

CHECK 

LD 

A, (37E8H) 

; PRINTERSTATUS LADEN 

00280 


AND 

OBOH 

; B I T 0-3 UND BIT 6 (OUT 

00290 




;0F PAPER) AUSBLENDEN 

00300 


CP 

30H 

; PRINTER BEREIT ? 

00310 


JR 

NZ , CHECK 

; WENN NEIN ZURUECK 

00320 


POP 

AF 

; ZEICHEN ZURUECK 

00330 


LD 

(37E8H) , A 

; ZEICHEN AUSGEBEN 

00340 


RET 



00350 

ZWSP 

NOP 


; ZWISCHENSPEICHER FUER 

00360 


NOP 


; STACKPOINTER 

00370 


END 

INIT 



Werner Toedter 

DATA IT! 


Dieses Programm bietet die Mög- 
lichkeit, den Inhalt beliebiger 
Speicherbereiche in ein Basic Pro- 
gramm in Form von Data Zeilen 
einzubinden. 

Dieses ist zum Beispiel nütz- 
lich, wenn von einem Basic Pro- 
gramm selbst definierte Maschi- 
nenprogramm-Routinen benutzt 
werden sollen. Man muß norma- 
lerweise das Basic Programm und 
die Maschinenprogramme nachein- 
ander von der Cassette laden. Da 
das jedoch sehr umständlich und 
zeitaufwendig ist, schreibt man 
die Bytes in Data Zeilen. Wenn 
das Basic Programm nun von der 


Cassette geladen ist, werden die 
Bytes wieder aus den Data Zeilen 
gelesen und mit POKE in den 
ursprünglichen Speicherbereich 
abgelegt. 

Mit dem vorliegenden Pro- 
gramm wird die mühsame und fe- 
hlerträchtige Eingabe von Hand 
umgangen. 

Ein weiteres Anwendungsgebiet 
wäre das Abspeichern von Gra- 
fiken. 

Wer über ein Assemblerpro- 
gramm verfügt, kann das Pro- 
gramm direkt in der abgedruck- 
ten Form eingeben. Man kann 
aber auch die Data Zeilen einge- 


ben und folgende Zeilen anfü- 
gen, um das Maschinenprogramm 
zu erzeugen. 

50 RESTORE 

60 FOR I = &H4800 to &H494C 
70 READ D 
80 POKE l,D 
90 NEXT I 

Das Programm steht im Grafik- 
speicher, damit es nicht vorhan- 
dene Maschinenprogramme zer- 
stört. Es wird mit einem CALL 
488A oder CALL4800 aufgerufen. 

Danach gibt man den Speicher- 
bereich an, der in Data Zeilen ab- 
gelegt werden soll. Tippt man 
jetzt LIST, so sieht man, daß die 
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Data Zeilen hinter ein vorhan- Zeilennummer Null. Man muß also 
denes Programm angefügt worden die Zeilennummern noch mit 
sind.allerdings beginnend mit der RENUM anpassen, 

10 ORB 4800H 

20 JP ANFANG :-> ENTRYPOINT 

30 DATA LD DE.OOOOR : 1 . ZE I LENNR . 

40 LD HL. (40F9H) : POINTER AUF 

50 DEC HL ; BAS IC-TEXT 

60 DEC HL 

70 LOOP PUSH HL 

30 LD BC, 37D : BYTES PRO BASIC-ZEILE 

90 ADD HL , BC 

100 LD B.H 

110 LD C , L 

1 20 POP HL 

130 LD (HL) , C : ZEILENPOINTER 

140 INC HL : ZEIGT AUF 

150 LD (HL) , B : NAECHSTE ZEILE 

1 60 I NC HL 

170 LD (HL) . E : BAS IC— ZE I LEN— 

180 INC HL : NUMMER DER 

190 LD (HL) . D : AKTUELLEN ZEILE 

200 INC HL 

210 LD B.08H ; DATEN PRO ZEILE 

220 LD (HD.136D : DAT A-Token 

230 LINE CALL HUNDRT 

240 INC HL 

250 LD (HL) . A s ASC ( HUNDERTER) 

260 CALL DEKA 

270 INC HL 

280 LD (HL) . A : ASC (ZEHNER) 

290 CALL EINER 

300 I NC HL 

310 LD (HL) , A : ASC (EINER) 

320 INC HL 

330 LD (HL) , 2CH : ASC ( , " X 

340 DJNZ LINE : 8-MAL WIEDERHOLEN 

350 LD ( HL) , OOH : ZEILENENDE 

360 INC HL 

370 INC DE ,f 

380 PUSH HL :"' v 

390 PUSH DE 

400 LD HL. (ANFADR) : F'RUEFEN, OB 

410 LD DE, (ENDADR) :DIE DATEN 

420 OR A : ALLE GESPEICHERT 

430 SBC HL, DE ;SIND 

440 POP DE 

450 POP HL 

460 JR C, LOOP : NEIN: NEUE ZEILE 

470 LD (HL), OOH { BAS IC-PROGR. - 

480 INC HL ; ENDE-POINTER 

490 LD (HL), OOH 

500 INC HL 

510 LD (40F9H) , HL 

520 LD (40FBH) , HL 


Special-Effects: T.M.BINZINGER 


HELIKOPTER u. der weiße Elefant 

VT DEM 


Sendet eine Postkarte mit Absender u 
Angabe der echt errungenen Punkte 
die Sie durch Ihr größtes Können er- 
zielt haben. 


Wir wollen sehen, welcher Commander 
als DEUTSCHER MEISTER infrage 
kommt. Wer noch keine Kampfma- 
schine hat, kann sie umgehend bei 
uns erhalten. DM 59,- per NN 


Der Wettkampf soll über den Zeitraum 
von drei GENIE DATA's laufen. 


Wir werden in der nächsten GENIE DATA 
die Teilnehmer mit Ortsangabe hier 
namentlich abdrucken. 


MACHEN SIE MIT! 


DIE 10 BESTEN ERHALTEN EINE 
SIEGER-URKUNDE. 


DER DEUTSCHE MEISTER 
erhält eine Ehren-Urkunde und wird 
nach dem Endkampf hier mit Foto 


Die Redaktion berichtet: „IST DAS SPIEL ZU SCHWER?" < oll > vorgestellt. 

Obwohl der HELIKOPTER der meistverkaufte Renner Nr. 1 ist, haben ******************************** 
noch keine Teilnehmer sich offiziell bei uns für den Kampf gemeldet. 

Wahrscheinlich denkt jeder der „Andere" ist besser und deshalb beginnt 
keiner. Wir setzen hiermit noch eine Siegerprämie mit DM 100,-- aus für 

den BESTEN. In der nächsten Ausgabe hören Sie weiter von uns. D-5429 Marienfels 

DIE REDAKTION GENIE DATA. 


Einsendungen an 
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530 

LD 

(40FDH) .HL 

540 

CALL 

0066H ; ZUI1 BASIC-"READY 

550 HUNDRT EXX 


560 

LD 

HL. (ANFADR) : NEUES 

570 

LD 

A, (HL) 5 BYTE 

580 

LD 

B.OOH 

590 

INC 

HL 

600 

LD 

(ANFADR) , HL 

610 

LD 

D.100D ; DIVISOR 

620 

OR 

A 

630 DIV2 

INC 

B ■■ 

640 

SUB 

D 

650 

JF; 

NC.DIV2 

660 

ADD 

A, D 

670 

LD 

E.A ; E=REST DER DIV. 

680 

LD 

A.B 5 (B-1)=HUNDERTER 

690 

ADD 

A, 2FH ; A=ASC ( B- 1 ) 

700 

EXX 


710 

RET 


720 DEKA 

EXX 


730 

LD 

B,0 

740 

LD 

A, E ; A=DI VIDENT 

750 

LD 

D.10D ; D=DI VISOR 

760 

□R 

A 

770 DI VI 

INC 

B 

780 

SUB 

D 

790 

JR 

NC, DI VI 

800 

ADD 

A,D 

810 

ADD 

A , 30H 

820 

LD 

E, A ; E=ASC (EINER) 

830 

LD 

A, B ; ( B— 1 > =ZEHNER 

840 

ADD 

A.2FH ; A=ASC (B-l ) 

850 

EXX 


860 

RET 


870 EINER 

EXX 


880 

LD 

A, E 

890 

EXX 


900 

RET 


910 ANFANG LD 

HL, TEXT 1 ; EINGABE DER 

920 

CALL 

PRINT ? ANFANGS- UND 

930 

LD 

HL.TEXT3 ; ENDADRESSEN 

940 

CALL 

PRINT iDES DATEN- 

950 

LD 

HL, ANFADR s BLOCKS 

960 

CALL 

INPUT 

970 

LD 

(ANFADR) , HL 

980 

LD 

HL, TEXT2 

990 

CALL 

PRINT 

1000 

LD 

HL.TEXT3 

1010 

CALL 

PRINT 

1020 

LD 

HL, ENDADR 

1030 

CALL 

INPUT 

1040 

LD 

(ENDADR) , HL 

1050 

JP 

DATA 

1060 PRINT LD 

A, (HL) 

1070 

OR 

A 

1080 

RET 

Z 

1090 

CALL 

0033H ; ZEICHENAUSGABE 

1100 

INC 

HL 

1110 

JR 

PRINT 

1120 INPUT LD 

B,4 : ZEICHENANZAHL 


1 1 30 

CALL 

05D9H ; INPUT-ROUTINE 

1140 

JP 

C, 0066H ; BREAK -> 

1150 

EX 

DE, HL 

1160 

LD 

HL.OOOOH 

1170 

NEXT LD 

A, (DE) 

1180 

SUB 

30H 

1190 

JR 

C. FALSCH 

1200 

CP 

OAH 5 ZIFFER 

1210 

JR 

C, ENDE ; JA -> 

1220 

CP 

11H 5 BUCHSTABEN- 

1230 

JR 

C. FALSCH ; BEREICH 

1240 

CP 

17H : A-F 

1250 

JR 

NC, FALSCH 

1260 

SUB 

07H ; HEX (A-F) 

1270 

ENDE PUSH 

BC 

1280 

LD 

B , OOH 

1290 

LD 

C, A 

1300 

ADD 

HL. HL ;HL-REGISTER 

1310 

ADD 

HL, HL ; M I T 16 

1320 

ADD 

HL, HL ; MULT I PL I- 

1330 

ADD 

HL, HL ; ZIEREN 

1340 

ADD 

HL, BC 

1350 

POP 

BC 

1 360 

INC 

DE 

1370 

DJNZ 

NEXT 

1380 

RET 


1390 

FALSCH LD 

HL, TEXT4 

1400 

CALL 

PRINT 

1410 

JR 

INPUT 

1420 

TEXT 1 DEFB 

ICH 

1 430 

DEFB 

1FH 

1440 

DEFM 

“An-f angs" 

1450 

NOP 


1460 

TEXT2 DEFM 

"End" 

1470 

NOP 


1480 

TEXT3 DEFM 

"adresse des Maschinenp 

1490 

DEFB 

ODH 

1500 

DEFB 

3FH 

1510 

NOP 


1520 

TEXT4 DEFM 

"FALSCHE EINGABE" 

1530 

DEFB 

ODH 

1540 

DEFM 

"Richtiger Wert j " 

1550 

NOP 


1560 

ANFADR DEFS 4 

1570 

ENDADR DEFS 4 

1580 

END 

ANFANG 


0 DATA195, 138, 

1 DATA064, 043, 

2 DATA06B, 077, 

3 DATA035, 114, 

4 DATA089, 072, 

5 DATA1 19, 205, 

6 DATA044 ,016, 

7 DATA213, 042, 

8 DAT Al 83, 237, 

9 DATA000, 035, 

10 DATAQ34, 25 1 


072.017. 000, (. 

043. 229. 001 , < 

225.113.035, ! 
035, 006, 008, < 
035, 119,205, i 

134.072.035, 

236. 054. 000, < 
069, 073, 237, < 
082, 209, 225, < 

054. 000. 035, ( 
,064,034,253. 



SOFTWARE 


GENIE 11 55 


L 1 DAT AOOO . 2 1 7 , 042 , 06° , 073 .126, 006 
3 DATA035, 034 , 06°, 073. 022, iOo, 1 87 
. 7 DATA ! 46 . 048 . 252 . 1 30 . ö°5 , 1 2 , 1 ®3 


14 

DhTAZ 1 7 , 

20 1 , 

2 1 

006 , 

ooo . 

1 2 T 

022 

010 

15 

DAT Al 83, 

004, 

1 4 6 , 

048, 

* 

f 1 

Ui 

ri 

130, 

) 98 

‘>48 

i _ 

DATA095, 

1 20 . 

1 98 , 

04 7. 

*T •} 

'Ti " 1 * 

' * 

| ”7 

1 23 

17 

DAT A2 1 7 , 

201 . 

033. 

245, 

072 

*?r*«=* 
— - — * • 

183 

072 

13 

DAT A033 , 

003 . 

073, 

205 , 

133 

072 , 

033 

069 

19 

DATA073, 

205. 

192, 

072, 

034 

-06°, 

073 

033 

20 

DATA255, 

072, 

205 . 

183, 

072 

— * * 

003 

073 

21 

DATA205, 

183, 

072, 

077 , 

073 

073, 

205 

192 


DATA072, 

034 , 

073, 

073, 

195 

003 , 

072 

126 


DATA 183. 

200 , 

■“w-, er 
— , 

051 . 

ooo 

035, 

024 

247 

24 

DATA006, 

004 , 

205 , 

217, 

005 

218, 

1 02 

000 

—.er 

DAT A23-5 

033 , 

000 , 

000 .* 

026 

214. 

048, 

056 

71 L 

DATA028 

254 ’ 

010 , 

056, 

0 1 0 

254, 

017 

056 

*7 

DAT A020 

mc A 

V.' . 

023, 

048, 

016 

214, 

007 

197 

•IO 
■»U W 

DATAO 06 , 

000 , 

079, 

04 1 , 

04 1 

041 , 

04 1 

009 

2 ° 

DAT Al 93. 

019, 

016, 

4 

20 1 

033. 

036 

073 

30 

DATA20S , 

183, 

r> 7 — 

•- * — * 

024 , 

203 

028, 

031 

065 

31 

DATA 1 10, 

1 02 , 

097 , 

110 , 

1 03 

i t =• 

* i w , 

000 

069 


000 

004 

r,/}-7 


74 


38 

39 

40 

41 


ooo , 

097, 

1 00 

114, 

101, 

1 15 

> 

100, 

101 

115, 

032, 

077 

099 , 

104, 

105 

110, 

101, 

110 

Hl, 

103, 

1 .14 

097, 

109, 

109 

063 , 

000. 

070 

065, 

076 , 

083 

069, 

032, 

069, 

073, 

078, 

071 

069 , 

013, 

082, 

1 05 j 

099. 

104 

103, 

101 , 

114, 

032. 

037 , 

101 

r'i — •-> 
•-•-*- , 

053 , 

052 , 

069 , 

073, 

04 S 

073, 

052 , 

067 , 

013, 

ooo, 

ooo 
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März/Aprll 1984 

Herausgeber: Heinz HUbben, Offsetdruckerei 
und Verlag, S429 Marionfols, 

Telefon: 06772-1261 
Chefredakteur.- Heinz HUbben 
Titelgestaltung: H. Hübbon, Offsotdruckoral 
und Vorlag, S429 Marlenfels/Ts. 

Satz: H. Hubbon, Offsotdruckoroi und Verlag, 
5429 Marienfols/Ts, 

Druck: H. HUbben, Offsetdruckerei und 

Verlag, 5429 Marienfels/Ts. 
Erscheinungsweise: Allo zwei Monate, leweils 
am 15. des Monats. 

Abonnements: 59,40 DM incl. Porto, Verpak- 
kung und gosotzl. MWSt. 

Erfüllungsort: 5429 Mar!enfels/Ts. 
Gerichtsstand: In Jedom Fall das fUr unseren 
Verlag zuständige Gericht. 

Manuskripte: Unangeforderte Manuskripte 

worden nur zurückgosandt. wenn ausreichen- 
des Rückporto belgelogl wurde. Jeder Ein- 
sender orklärt sich durch die Einsendung mit 
einer Veröffentlichung dos eingesandten Ma- 
terials in dor GENIE DATA und Im GENIE 
DATA Software Service einverstanden. 


IMPRESSUM 


Copyright (c) 1984 by Hoinz HUbben, Offset- 
druckcrel und Verlag, 5429 Marienfols /Ts. 
Nachdruck, veiv.euaitiguriy. Übertragung so- 
wie Speicherung in EDV-Anlagen verboten. 
Bei Bauanleitungcn und/odor Programmen 
kann für die Fehlerfreiheit keine Garantie 
übernommen werden. 

Die Meinung dor einzelnen Autoren muft 
nicht mit der des Verlages Ubereinstimmon. 
Anfragen an dio Redaktion Ditto nur schrift- 
lich mit beigelegtem Rückporto. 

Kündigung der Abonnements: Zu Jedem Jahr, 
rechtzeitig, vor Endo dos Jahres (6 Wochen). 
Jedes Abonnement verlängert sich nach Ab- 
lauf automatisch um ein Jahr. 

Sollte die GENIE DATA aus Gründen, die 
nicht In dor Verantwortung des Verlages lie- 
gen, nicht odor nicht rechtzeitig erscheinen, 
besteht kein Anspruch auf Nachlieferung. 

FUr eventuelle Schäden und/oder Folgeschä- 
den an Geräten und oder Bauteilen und/oder 
Datenverlust kann koino Haftung übernom- 
men werden. Der Nachbau unserer Bauanlei- 
tungen und/oder die Anwendung von Pro- 
grammen aus dor GENIE DATA erfolgt auf 
oigene Gofahr. Alle Mitteilungen erfolgen nur 
für Amateur- und Hobby-Zwecke. Irrtum so- 


wie alle Rechte Vorbehalten. Es kann keine 
Gewähr dafür übernommen werden, daß die 
verwendeten Scnaltungon, Firmennamen, Wa- 
renbezeichnungen und alle anderen Angaben 
frei von Scnutzrechten Drlttor sind. 

Sämtliche Veröffentlichungen erfolgen ohne 
Berücksichtigung eines eventuellen Patent- 
schutzes und/oder Gebrauchsmusterschutzes. 
Bei atlon Artikel-Einsendungen gehen wir da- 
von aus, daS der Verfasser allo Rechte an dor 
Einsendung besitzt, sowie geistiger Eigentü- 
mer ist. 

Uber Jede Artikel-Einsendung freuen wir uns! 
Honorar: FUr Jeden gedruckten Artikol be- 
zahlen wir pro Druckseite ein Honorar von 
SO.- DM. 

Wir gestatten jedermann, einen Artikel aus dar 
GENIE DATA zu entnehmen, und in einer 
anderen, nicht kommerziellen, Druckschrift 
zu veröffentlichen, unter der Bedingung, daß 
an der Gestaltung nichts verändert wird, das 
orwähnl wird, daß der betreffende Artikel 
aus der GENIE DATA entnommen wurde 
und daß man uns mindestens ein Exemplar 
der betreffenden Druckschrift kostenlos, so- 
fort nach Erscheinen, zur Verfügung stollt. 




Der neue STAR-Drucker. Für alle, die etwas zu drucken haben. Schneller 
und besser als bisher. 1 20 Zeichen pro Sekunde. Standard ASCII in normal 
und kursiv, internationaler Zeichensatz, Sonderzeichen, Blockgrafik und 
8 verschiedene Schrifttypen. Da hat man die Wahl. Auch beim Plotten: 480, 
920 oder sogar 1920 Zeichen pro Zeile auf Rollen-, Einzelblatt- oder 
Endlospapier. Mit Durchschlägen, wenn Sie wollen. Vertikal- und IHori- 
zontal-Tabulator, programmierbarer Zeilenabstand, Selbsttest und vieles 
andere mehr. 


Wenn Sie jetzt noch den Preis beachten, verstehen Sie vielleicht, warum 
wir auf unseren Neuen ganz schön stolz sind. 

Coupon 


I 

Informieren Sie mich bitte ausführlich und kostenlos über den I 
STAR gemini-IOX. j 

Name — .. — — . I 


Straße 

Ort 



t>o;tfc.cti 2105 
5205 5». Augustin 2 
Telefon 02241/28071 
Telex 8 89 702 






